VERSION 5.00
Object = "{C4847593-972C-11D0-9567-00A0C9273C2A}#8.0#0"; "crviewer.dll"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "msdatgrd.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "richtx32.ocx"
Object = "{B3FB64BF-91F9-11D7-A482-0008A14158BC}#2.22#0"; "ITGControls.ocx"
Begin VB.Form frmMaintProduct 
   BackColor       =   &H00F7D9C2&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   9600
   ClientLeft      =   1785
   ClientTop       =   1185
   ClientWidth     =   11535
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   9600
   ScaleWidth      =   11535
   ShowInTaskbar   =   0   'False
   Begin MSComctlLib.StatusBar sbRS 
      Align           =   2  'Align Bottom
      Height          =   255
      Left            =   0
      TabIndex        =   87
      Top             =   9345
      Width           =   11535
      _ExtentX        =   20346
      _ExtentY        =   450
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   2
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   3528
            MinWidth        =   3528
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
      EndProperty
   End
   Begin ITGControls.ITGTab SSTab2 
      Height          =   2625
      Left            =   45
      TabIndex        =   90
      Top             =   6315
      Width           =   11205
      _ExtentX        =   19764
      _ExtentY        =   4630
      TabCount        =   10
      TabCaption(0)   =   "Activity"
      TabContCtrlCnt(0)=   15
      Tab(0)ContCtrlCap(1)=   "txtReorder"
      Tab(0)ContCtrlCap(2)=   "txtReorderPt"
      Tab(0)ContCtrlCap(3)=   "txtProdRM"
      Tab(0)ContCtrlCap(4)=   "txtIssues"
      Tab(0)ContCtrlCap(5)=   "txtBackOrder"
      Tab(0)ContCtrlCap(6)=   "txtBalance"
      Tab(0)ContCtrlCap(7)=   "txtInitial"
      Tab(0)ContCtrlCap(8)=   "txtMinimum"
      Tab(0)ContCtrlCap(9)=   "txtMaximum"
      Tab(0)ContCtrlCap(10)=   "txtPurchase"
      Tab(0)ContCtrlCap(11)=   "txtSales"
      Tab(0)ContCtrlCap(12)=   "txtProdFG"
      Tab(0)ContCtrlCap(13)=   "txtAdjustment"
      Tab(0)ContCtrlCap(14)=   "txtSampleDemo"
      Tab(0)ContCtrlCap(15)=   "txtReserved"
      TabCaption(1)   =   "Groupings"
      TabContCtrlCnt(1)=   30
      Tab(1)ContCtrlCap(1)=   "cmdPickGroup6"
      Tab(1)ContCtrlCap(2)=   "cmdPickGroup7"
      Tab(1)ContCtrlCap(3)=   "cmdPickGroup8"
      Tab(1)ContCtrlCap(4)=   "cmdPickGroup9"
      Tab(1)ContCtrlCap(5)=   "cmdPickGroup10"
      Tab(1)ContCtrlCap(6)=   "cmdPickGroup5"
      Tab(1)ContCtrlCap(7)=   "cmdPickGroup4"
      Tab(1)ContCtrlCap(8)=   "cmdPickGroup3"
      Tab(1)ContCtrlCap(9)=   "cmdPickGroup2"
      Tab(1)ContCtrlCap(10)=   "cmdPickGroup1"
      Tab(1)ContCtrlCap(11)=   "txtGroup1"
      Tab(1)ContCtrlCap(12)=   "txtGroup2"
      Tab(1)ContCtrlCap(13)=   "txtGroup3"
      Tab(1)ContCtrlCap(14)=   "txtGroup4"
      Tab(1)ContCtrlCap(15)=   "txtGroupName1"
      Tab(1)ContCtrlCap(16)=   "txtGroupName2"
      Tab(1)ContCtrlCap(17)=   "txtGroupName3"
      Tab(1)ContCtrlCap(18)=   "txtGroupName4"
      Tab(1)ContCtrlCap(19)=   "txtGroup5"
      Tab(1)ContCtrlCap(20)=   "txtGroupName5"
      Tab(1)ContCtrlCap(21)=   "txtGroup6"
      Tab(1)ContCtrlCap(22)=   "txtGroup7"
      Tab(1)ContCtrlCap(23)=   "txtGroup8"
      Tab(1)ContCtrlCap(24)=   "txtGroup9"
      Tab(1)ContCtrlCap(25)=   "txtGroupName6"
      Tab(1)ContCtrlCap(26)=   "txtGroupName7"
      Tab(1)ContCtrlCap(27)=   "txtGroupName8"
      Tab(1)ContCtrlCap(28)=   "txtGroupName9"
      Tab(1)ContCtrlCap(29)=   "txtGroup10"
      Tab(1)ContCtrlCap(30)=   "txtGroupName10"
      TabCaption(2)   =   "UOM/Barcoding"
      TabContCtrlCnt(2)=   4
      Tab(2)ContCtrlCap(1)=   "cboPrimaryUnit"
      Tab(2)ContCtrlCap(2)=   "cboUOM"
      Tab(2)ContCtrlCap(3)=   "txtPrimaryUnit"
      Tab(2)ContCtrlCap(4)=   "dtgUnit"
      TabCaption(3)   =   "Warehouses"
      TabContCtrlCnt(3)=   2
      Tab(3)ContCtrlCap(1)=   "lvwList"
      Tab(3)ContCtrlCap(2)=   "cmdWHBalance"
      TabCaption(4)   =   "History"
      TabContCtrlCnt(4)=   4
      Tab(4)ContCtrlCap(1)=   "Frame2"
      Tab(4)ContCtrlCap(2)=   "dtgHistory"
      Tab(4)ContCtrlCap(3)=   "cmdHistory"
      Tab(4)ContCtrlCap(4)=   "cmdPrintHistory"
      TabCaption(5)   =   "Budget"
      TabContCtrlCnt(5)=   1
      Tab(5)ContCtrlCap(1)=   "dtgBudget"
      TabCaption(6)   =   "Component"
      TabContCtrlCnt(6)=   1
      Tab(6)ContCtrlCap(1)=   "dtgC"
      TabCaption(7)   =   "Measurement"
      TabContCtrlCnt(7)=   8
      Tab(7)ContCtrlCap(1)=   "txtHeight"
      Tab(7)ContCtrlCap(2)=   "txtWidth"
      Tab(7)ContCtrlCap(3)=   "txtLength"
      Tab(7)ContCtrlCap(4)=   "txtArea"
      Tab(7)ContCtrlCap(5)=   "txtMasterBox"
      Tab(7)ContCtrlCap(6)=   "txtNetWeight"
      Tab(7)ContCtrlCap(7)=   "txtGrossWeight"
      Tab(7)ContCtrlCap(8)=   "txtCBM"
      TabCaption(8)   =   "Supplier"
      TabContCtrlCnt(8)=   1
      Tab(8)ContCtrlCap(1)=   "dtgSupp"
      TabCaption(9)   =   "Cust Item No"
      TabContCtrlCnt(9)=   1
      Tab(9)ContCtrlCap(1)=   "dtgCustCode"
      TabTheme        =   2
      ActiveTabBackEndColor=   16243138
      InActiveTabBackStartColor=   16243138
      InActiveTabBackEndColor=   16243138
      BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      OuterBorderColor=   4210752
      TopLeftInnerBorderColor=   4210752
      BottomRightInnerBorderColor=   4210752
      DisabledTabBackColor=   16243138
      DisabledTabForeColor=   -2147483630
      Begin VB.ComboBox cboPrimaryUnit 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFFFF&
         Height          =   315
         ItemData        =   "frmMaintProduct.frx":0000
         Left            =   -73680
         List            =   "frmMaintProduct.frx":0010
         TabIndex        =   64
         Top             =   480
         Width           =   1575
      End
      Begin MSDataGridLib.DataGrid dtgCustCode 
         Height          =   2310
         Left            =   -75000
         TabIndex        =   104
         Top             =   315
         Width           =   11205
         _ExtentX        =   19764
         _ExtentY        =   4075
         _Version        =   393216
         HeadLines       =   1
         RowHeight       =   15
         FormatLocked    =   -1  'True
         BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ColumnCount     =   3
         BeginProperty Column00 
            DataField       =   "cCode"
            Caption         =   "Customer Code"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column01 
            DataField       =   "cName"
            Caption         =   "Customer Name"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column02 
            DataField       =   "cStockNo"
            Caption         =   "Customer Stock Number"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            BeginProperty Column00 
               Button          =   -1  'True
               Locked          =   -1  'True
               ColumnWidth     =   1635.024
            EndProperty
            BeginProperty Column01 
               ColumnWidth     =   3240
            EndProperty
            BeginProperty Column02 
               ColumnWidth     =   5339.906
            EndProperty
         EndProperty
      End
      Begin MSDataGridLib.DataGrid dtgSupp 
         Height          =   2310
         Left            =   -75000
         TabIndex        =   83
         Top             =   315
         Width           =   11205
         _ExtentX        =   19764
         _ExtentY        =   4075
         _Version        =   393216
         HeadLines       =   1
         RowHeight       =   15
         FormatLocked    =   -1  'True
         BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ColumnCount     =   2
         BeginProperty Column00 
            DataField       =   "cCode"
            Caption         =   "Supplier ID"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column01 
            DataField       =   "cName"
            Caption         =   "Supplier Name"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            BeginProperty Column00 
            EndProperty
            BeginProperty Column01 
               ColumnWidth     =   5339.906
            EndProperty
         EndProperty
      End
      Begin VB.ComboBox cboUOM 
         Height          =   315
         ItemData        =   "frmMaintProduct.frx":0029
         Left            =   -74880
         List            =   "frmMaintProduct.frx":0036
         Style           =   2  'Dropdown List
         TabIndex        =   103
         Top             =   2160
         Visible         =   0   'False
         Width           =   1035
      End
      Begin ITGControls.ITGTextBox txtPrimaryUnit 
         Height          =   285
         Left            =   -74865
         TabIndex        =   102
         Top             =   480
         Width           =   2685
         _ExtentX        =   4524
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Label           =   "Primary Unit"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelForeColor  =   0
         LabelWidth      =   1200
         TextBoxWidth    =   1425
      End
      Begin MSDataGridLib.DataGrid dtgUnit 
         Height          =   1755
         Left            =   -75000
         TabIndex        =   65
         Top             =   870
         Width           =   11205
         _ExtentX        =   19764
         _ExtentY        =   3096
         _Version        =   393216
         AllowArrows     =   -1  'True
         HeadLines       =   1
         RowHeight       =   15
         TabAction       =   2
         FormatLocked    =   -1  'True
         BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ColumnCount     =   9
         BeginProperty Column00 
            DataField       =   "cUnit"
            Caption         =   "Unit"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   1
               Format          =   "#,##0.00"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   1
            EndProperty
         EndProperty
         BeginProperty Column01 
            DataField       =   "nFactor"
            Caption         =   "Factor"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column02 
            DataField       =   "nPrice"
            Caption         =   "Price"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   1
               Format          =   "#,##0.00"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column03 
            DataField       =   "nCost"
            Caption         =   "Cost"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   1
               Format          =   "#,##0.00"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column04 
            DataField       =   "cBarcode"
            Caption         =   "Barcode"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column05 
            DataField       =   "cType"
            Caption         =   "Type"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column06 
            DataField       =   "cRefID"
            Caption         =   "Reference ID"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column07 
            DataField       =   "cRefDesc"
            Caption         =   "Ref Description"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column08 
            DataField       =   "cRemarks"
            Caption         =   "Remarks"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            BeginProperty Column00 
               Button          =   -1  'True
               Locked          =   -1  'True
               Object.Visible         =   -1  'True
               ColumnWidth     =   794.835
            EndProperty
            BeginProperty Column01 
               Object.Visible         =   -1  'True
               ColumnWidth     =   854.929
            EndProperty
            BeginProperty Column02 
               ColumnWidth     =   1244.976
            EndProperty
            BeginProperty Column03 
               Object.Visible         =   -1  'True
               ColumnWidth     =   1065.26
            EndProperty
            BeginProperty Column04 
               ColumnWidth     =   1365.165
            EndProperty
            BeginProperty Column05 
               Button          =   -1  'True
               Locked          =   -1  'True
               ColumnWidth     =   1319.811
            EndProperty
            BeginProperty Column06 
               Button          =   -1  'True
               Locked          =   -1  'True
               ColumnWidth     =   1124.787
            EndProperty
            BeginProperty Column07 
               ColumnWidth     =   2160
            EndProperty
            BeginProperty Column08 
               ColumnWidth     =   2369.764
            EndProperty
         EndProperty
      End
      Begin ITGControls.ITGTextBox txtHeight 
         Height          =   285
         Left            =   -71370
         TabIndex        =   82
         Top             =   1665
         Width           =   3045
         _ExtentX        =   5159
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         DecimalPlace    =   2
         Label           =   "Height"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelForeColor  =   0
         LabelWidth      =   1100
         TextBoxWidth    =   1885
      End
      Begin ITGControls.ITGTextBox txtWidth 
         Height          =   285
         Left            =   -71370
         TabIndex        =   81
         Top             =   1350
         Width           =   3045
         _ExtentX        =   5159
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         DecimalPlace    =   2
         Label           =   "Width"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelForeColor  =   0
         LabelWidth      =   1100
         TextBoxWidth    =   1885
      End
      Begin ITGControls.ITGTextBox txtLength 
         Height          =   285
         Left            =   -71370
         TabIndex        =   80
         Top             =   1035
         Width           =   3045
         _ExtentX        =   5159
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         DecimalPlace    =   2
         Label           =   "Length"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelForeColor  =   0
         LabelWidth      =   1100
         TextBoxWidth    =   1885
      End
      Begin ITGControls.ITGTextBox txtArea 
         Height          =   285
         Left            =   -71370
         TabIndex        =   79
         Top             =   720
         Width           =   3045
         _ExtentX        =   5159
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         DecimalPlace    =   2
         Label           =   "Area"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelForeColor  =   0
         LabelWidth      =   1100
         TextBoxWidth    =   1885
      End
      Begin ITGControls.ITGTextBox txtMasterBox 
         Height          =   285
         Left            =   -74865
         TabIndex        =   78
         Top             =   1665
         Width           =   3270
         _ExtentX        =   5556
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         DecimalPlace    =   2
         Label           =   "Master Box"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelForeColor  =   0
         LabelWidth      =   1320
         TextBoxWidth    =   1890
      End
      Begin ITGControls.ITGTextBox txtNetWeight 
         Height          =   285
         Left            =   -74880
         TabIndex        =   77
         Top             =   1350
         Width           =   3270
         _ExtentX        =   5556
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         DecimalPlace    =   2
         Label           =   "Net Weight"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelForeColor  =   0
         LabelWidth      =   1320
         TextBoxWidth    =   1890
      End
      Begin ITGControls.ITGTextBox txtGrossWeight 
         Height          =   285
         Left            =   -74880
         TabIndex        =   76
         Top             =   1035
         Width           =   3270
         _ExtentX        =   5556
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         DecimalPlace    =   2
         Label           =   "Gross Weight"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelForeColor  =   0
         LabelWidth      =   1320
         TextBoxWidth    =   1890
      End
      Begin ITGControls.ITGTextBox txtCBM 
         Height          =   285
         Left            =   -74880
         TabIndex        =   75
         Top             =   720
         Width           =   3270
         _ExtentX        =   5556
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         DecimalPlace    =   2
         Label           =   "CBM"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelForeColor  =   0
         LabelWidth      =   1320
         TextBoxWidth    =   1890
      End
      Begin ITGControls.ITGTextBox txtReorder 
         Height          =   285
         Left            =   270
         TabIndex        =   24
         Top             =   1515
         Width           =   2700
         _ExtentX        =   4551
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         MaximumValue    =   9999999999.99
         DecimalPlace    =   2
         Label           =   "Reorder"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1260
         TextBoxWidth    =   1380
      End
      Begin ITGControls.ITGTextBox txtReorderPt 
         Height          =   285
         Left            =   270
         TabIndex        =   25
         Top             =   1830
         Width           =   2700
         _ExtentX        =   4551
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         MaximumValue    =   9999999999.99
         DecimalPlace    =   2
         Label           =   "Reorder Point"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1260
         TextBoxWidth    =   1380
      End
      Begin ITGControls.ITGTextBox txtProdRM 
         Height          =   285
         Left            =   3510
         TabIndex        =   29
         TabStop         =   0   'False
         Top             =   1515
         Width           =   2940
         _ExtentX        =   4974
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         MaximumValue    =   9999999999.99
         DecimalPlace    =   2
         Label           =   "Production (RM)"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1490
         TextBoxWidth    =   1390
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtIssues 
         Height          =   285
         Left            =   7110
         TabIndex        =   31
         TabStop         =   0   'False
         Top             =   570
         Width           =   2520
         _ExtentX        =   4233
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         MaximumValue    =   9999999999.99
         DecimalPlace    =   2
         Label           =   "Issues"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1080
         TextBoxWidth    =   1380
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtBackOrder 
         Height          =   285
         Left            =   7110
         TabIndex        =   32
         TabStop         =   0   'False
         Top             =   885
         Width           =   2520
         _ExtentX        =   4233
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         MaximumValue    =   9999999999.99
         DecimalPlace    =   2
         Label           =   "Back Order"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1080
         TextBoxWidth    =   1380
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtBalance 
         Height          =   285
         Left            =   7110
         TabIndex        =   35
         TabStop         =   0   'False
         Top             =   1830
         Width           =   2520
         _ExtentX        =   4233
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         MaximumValue    =   9999999999.99
         DecimalPlace    =   2
         Label           =   "Balance"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1080
         TextBoxWidth    =   1380
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtInitial 
         Height          =   285
         Left            =   270
         TabIndex        =   21
         TabStop         =   0   'False
         Top             =   570
         Width           =   2700
         _ExtentX        =   4551
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         MaximumValue    =   9999999999.99
         DecimalPlace    =   2
         Label           =   "Initial"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1260
         TextBoxWidth    =   1380
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtMinimum 
         Height          =   285
         Left            =   270
         TabIndex        =   22
         Top             =   885
         Width           =   2700
         _ExtentX        =   4551
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         MaximumValue    =   9999999999.99
         DecimalPlace    =   2
         Label           =   "Minimum"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1260
         TextBoxWidth    =   1380
      End
      Begin ITGControls.ITGTextBox txtMaximum 
         Height          =   285
         Left            =   270
         TabIndex        =   23
         Top             =   1200
         Width           =   2700
         _ExtentX        =   4551
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         MaximumValue    =   9999999999.99
         DecimalPlace    =   2
         Label           =   "Maximum"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1260
         TextBoxWidth    =   1380
      End
      Begin ITGControls.ITGTextBox txtPurchase 
         Height          =   285
         Left            =   3510
         TabIndex        =   26
         TabStop         =   0   'False
         Top             =   570
         Width           =   2940
         _ExtentX        =   4974
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         MaximumValue    =   9999999999.99
         DecimalPlace    =   2
         Label           =   "Purchase"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1490
         TextBoxWidth    =   1390
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtSales 
         Height          =   285
         Left            =   3510
         TabIndex        =   27
         TabStop         =   0   'False
         Top             =   885
         Width           =   2940
         _ExtentX        =   4974
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         MaximumValue    =   9999999999.99
         DecimalPlace    =   2
         Label           =   "Sales"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1490
         TextBoxWidth    =   1390
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtProdFG 
         Height          =   285
         Left            =   3510
         TabIndex        =   28
         TabStop         =   0   'False
         Top             =   1200
         Width           =   2940
         _ExtentX        =   4974
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         MaximumValue    =   9999999999.99
         DecimalPlace    =   2
         Label           =   "Production (FG)"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1490
         TextBoxWidth    =   1390
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtAdjustment 
         Height          =   285
         Left            =   7110
         TabIndex        =   33
         TabStop         =   0   'False
         Top             =   1200
         Width           =   2520
         _ExtentX        =   4233
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         MaximumValue    =   9999999999.99
         DecimalPlace    =   2
         Label           =   "Adjustment"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1080
         TextBoxWidth    =   1380
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtSampleDemo 
         Height          =   285
         Left            =   3510
         TabIndex        =   30
         TabStop         =   0   'False
         Top             =   1830
         Width           =   2940
         _ExtentX        =   4974
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         MaximumValue    =   9999999999.99
         DecimalPlace    =   2
         Label           =   "Sample/Demo"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1490
         TextBoxWidth    =   1390
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtReserved 
         Height          =   285
         Left            =   7110
         TabIndex        =   34
         TabStop         =   0   'False
         Top             =   1515
         Width           =   2520
         _ExtentX        =   4233
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         MaximumValue    =   9999999999.99
         DecimalPlace    =   2
         Label           =   "Reserved"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1080
         TextBoxWidth    =   1380
         Enabled         =   0   'False
      End
      Begin VB.CommandButton cmdPickGroup 
         Height          =   300
         Index           =   6
         Left            =   -67080
         Picture         =   "frmMaintProduct.frx":0050
         Style           =   1  'Graphical
         TabIndex        =   51
         Top             =   585
         Width           =   315
      End
      Begin VB.CommandButton cmdPickGroup 
         Height          =   300
         Index           =   7
         Left            =   -67080
         Picture         =   "frmMaintProduct.frx":019A
         Style           =   1  'Graphical
         TabIndex        =   54
         Top             =   900
         Width           =   315
      End
      Begin VB.CommandButton cmdPickGroup 
         Height          =   300
         Index           =   8
         Left            =   -67080
         Picture         =   "frmMaintProduct.frx":02E4
         Style           =   1  'Graphical
         TabIndex        =   57
         Top             =   1215
         Width           =   315
      End
      Begin VB.CommandButton cmdPickGroup 
         Height          =   300
         Index           =   9
         Left            =   -67080
         Picture         =   "frmMaintProduct.frx":042E
         Style           =   1  'Graphical
         TabIndex        =   60
         Top             =   1530
         Width           =   315
      End
      Begin VB.CommandButton cmdPickGroup 
         Height          =   300
         Index           =   10
         Left            =   -67080
         Picture         =   "frmMaintProduct.frx":0578
         Style           =   1  'Graphical
         TabIndex        =   85
         Top             =   1845
         Width           =   315
      End
      Begin VB.CommandButton cmdPickGroup 
         Height          =   300
         Index           =   5
         Left            =   -72540
         Picture         =   "frmMaintProduct.frx":06C2
         Style           =   1  'Graphical
         TabIndex        =   48
         Top             =   1845
         Width           =   315
      End
      Begin VB.CommandButton cmdPickGroup 
         Height          =   300
         Index           =   4
         Left            =   -72540
         Picture         =   "frmMaintProduct.frx":080C
         Style           =   1  'Graphical
         TabIndex        =   45
         Top             =   1530
         Width           =   315
      End
      Begin VB.CommandButton cmdPickGroup 
         Height          =   300
         Index           =   3
         Left            =   -72540
         Picture         =   "frmMaintProduct.frx":0956
         Style           =   1  'Graphical
         TabIndex        =   86
         Top             =   1215
         Width           =   315
      End
      Begin VB.CommandButton cmdPickGroup 
         Height          =   300
         Index           =   2
         Left            =   -72540
         Picture         =   "frmMaintProduct.frx":0AA0
         Style           =   1  'Graphical
         TabIndex        =   40
         Top             =   900
         Width           =   315
      End
      Begin VB.CommandButton cmdPickGroup 
         Height          =   300
         Index           =   1
         Left            =   -72540
         Picture         =   "frmMaintProduct.frx":0BEA
         Style           =   1  'Graphical
         TabIndex        =   37
         Top             =   585
         Width           =   315
      End
      Begin ITGControls.ITGTextBox txtGroup 
         Height          =   285
         Index           =   1
         Left            =   -74790
         TabIndex        =   36
         Top             =   585
         Width           =   2190
         _ExtentX        =   3651
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14745599
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Mandatory       =   -1  'True
         Label           =   "Group 1"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1110
         TextBoxWidth    =   1020
      End
      Begin ITGControls.ITGTextBox txtGroup 
         Height          =   285
         Index           =   2
         Left            =   -74790
         TabIndex        =   39
         Top             =   900
         Width           =   2190
         _ExtentX        =   3651
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14745599
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Mandatory       =   -1  'True
         Label           =   "Group 2"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1110
         TextBoxWidth    =   1020
      End
      Begin ITGControls.ITGTextBox txtGroup 
         Height          =   285
         Index           =   3
         Left            =   -74790
         TabIndex        =   42
         Top             =   1215
         Width           =   2190
         _ExtentX        =   3651
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14745599
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Mandatory       =   -1  'True
         Label           =   "Group 3"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1110
         TextBoxWidth    =   1020
      End
      Begin ITGControls.ITGTextBox txtGroup 
         Height          =   285
         Index           =   4
         Left            =   -74790
         TabIndex        =   44
         Top             =   1530
         Width           =   2190
         _ExtentX        =   3651
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14745599
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Mandatory       =   -1  'True
         Label           =   "Group 4"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1110
         TextBoxWidth    =   1020
      End
      Begin ITGControls.ITGTextBox txtGroupName 
         Height          =   285
         Index           =   1
         Left            =   -72195
         TabIndex        =   38
         Top             =   585
         Width           =   2460
         _ExtentX        =   4233
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Label           =   "ITGtext"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   0
         TextBoxWidth    =   2400
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtGroupName 
         Height          =   285
         Index           =   2
         Left            =   -72195
         TabIndex        =   41
         Top             =   900
         Width           =   2460
         _ExtentX        =   4233
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Label           =   "ITGtext"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   0
         TextBoxWidth    =   2400
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtGroupName 
         Height          =   285
         Index           =   3
         Left            =   -72195
         TabIndex        =   43
         Top             =   1215
         Width           =   2460
         _ExtentX        =   4233
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Label           =   "ITGtext"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   0
         TextBoxWidth    =   2400
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtGroupName 
         Height          =   285
         Index           =   4
         Left            =   -72195
         TabIndex        =   46
         Top             =   1530
         Width           =   2460
         _ExtentX        =   4233
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Label           =   "ITGtext"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   0
         TextBoxWidth    =   2400
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtGroup 
         Height          =   285
         Index           =   5
         Left            =   -74790
         TabIndex        =   47
         Top             =   1845
         Width           =   2190
         _ExtentX        =   3651
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14745599
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Mandatory       =   -1  'True
         Label           =   "Group 5"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1110
         TextBoxWidth    =   1020
      End
      Begin ITGControls.ITGTextBox txtGroupName 
         Height          =   285
         Index           =   5
         Left            =   -72195
         TabIndex        =   49
         Top             =   1845
         Width           =   2460
         _ExtentX        =   4233
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Label           =   "ITGtext"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   0
         TextBoxWidth    =   2400
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtGroup 
         Height          =   285
         Index           =   6
         Left            =   -69330
         TabIndex        =   50
         Top             =   585
         Width           =   2190
         _ExtentX        =   3651
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14745599
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Mandatory       =   -1  'True
         Label           =   "Group 6"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1110
         TextBoxWidth    =   1020
      End
      Begin ITGControls.ITGTextBox txtGroup 
         Height          =   285
         Index           =   7
         Left            =   -69330
         TabIndex        =   53
         Top             =   900
         Width           =   2190
         _ExtentX        =   3651
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14745599
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Mandatory       =   -1  'True
         Label           =   "Group 7"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1110
         TextBoxWidth    =   1020
      End
      Begin ITGControls.ITGTextBox txtGroup 
         Height          =   285
         Index           =   8
         Left            =   -69330
         TabIndex        =   56
         Top             =   1215
         Width           =   2190
         _ExtentX        =   3651
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14745599
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Mandatory       =   -1  'True
         Label           =   "Group 8"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1110
         TextBoxWidth    =   1020
      End
      Begin ITGControls.ITGTextBox txtGroup 
         Height          =   285
         Index           =   9
         Left            =   -69330
         TabIndex        =   59
         Top             =   1530
         Width           =   2190
         _ExtentX        =   3651
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14745599
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Mandatory       =   -1  'True
         Label           =   "Group 9"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1110
         TextBoxWidth    =   1020
      End
      Begin ITGControls.ITGTextBox txtGroupName 
         Height          =   285
         Index           =   6
         Left            =   -66735
         TabIndex        =   52
         Top             =   585
         Width           =   2460
         _ExtentX        =   4233
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Label           =   "ITGtext"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   0
         TextBoxWidth    =   2400
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtGroupName 
         Height          =   285
         Index           =   7
         Left            =   -66735
         TabIndex        =   55
         Top             =   900
         Width           =   2460
         _ExtentX        =   4233
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Label           =   "ITGtext"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   0
         TextBoxWidth    =   2400
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtGroupName 
         Height          =   285
         Index           =   8
         Left            =   -66735
         TabIndex        =   58
         Top             =   1215
         Width           =   2460
         _ExtentX        =   4233
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Label           =   "ITGtext"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   0
         TextBoxWidth    =   2400
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtGroupName 
         Height          =   285
         Index           =   9
         Left            =   -66735
         TabIndex        =   61
         Top             =   1530
         Width           =   2460
         _ExtentX        =   4233
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Label           =   "ITGtext"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   0
         TextBoxWidth    =   2400
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtGroup 
         Height          =   285
         Index           =   10
         Left            =   -69330
         TabIndex        =   62
         Top             =   1845
         Width           =   2190
         _ExtentX        =   3651
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14745599
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Mandatory       =   -1  'True
         Label           =   "Group 10"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1110
         TextBoxWidth    =   1020
      End
      Begin ITGControls.ITGTextBox txtGroupName 
         Height          =   285
         Index           =   10
         Left            =   -66735
         TabIndex        =   63
         Top             =   1845
         Width           =   2460
         _ExtentX        =   4233
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Label           =   "ITGtext"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   0
         TextBoxWidth    =   2400
         Enabled         =   0   'False
      End
      Begin MSComctlLib.ListView lvwList 
         Height          =   1860
         Left            =   -75000
         TabIndex        =   66
         Top             =   315
         Width           =   11205
         _ExtentX        =   19764
         _ExtentY        =   3281
         View            =   3
         LabelWrap       =   -1  'True
         HideSelection   =   -1  'True
         FullRowSelect   =   -1  'True
         GridLines       =   -1  'True
         HotTracking     =   -1  'True
         _Version        =   393217
         ForeColor       =   -2147483640
         BackColor       =   -2147483643
         BorderStyle     =   1
         Appearance      =   0
         NumItems        =   12
         BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Text            =   "Warehouse"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            SubItemIndex    =   1
            Text            =   "Initial"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            SubItemIndex    =   2
            Text            =   "Purchase"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            SubItemIndex    =   3
            Text            =   "Sales"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            SubItemIndex    =   4
            Text            =   "Production (FG)"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            SubItemIndex    =   5
            Text            =   "Production (BM)"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            SubItemIndex    =   6
            Text            =   "Sample/Demo"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            SubItemIndex    =   7
            Text            =   "Issues"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(9) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            SubItemIndex    =   8
            Text            =   "Back Order"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(10) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            SubItemIndex    =   9
            Text            =   "Adjustment"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(11) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            SubItemIndex    =   10
            Text            =   "Reserved"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(12) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            SubItemIndex    =   11
            Text            =   "Balance"
            Object.Width           =   2540
         EndProperty
      End
      Begin ITGControls.ITGCommandButton cmdWHBalance 
         Height          =   315
         Left            =   -74895
         TabIndex        =   67
         Top             =   2205
         Width           =   1515
         _ExtentX        =   2672
         _ExtentY        =   556
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Caption         =   "Balance Info >>"
      End
      Begin VB.Frame Frame2 
         Appearance      =   0  'Flat
         BackColor       =   &H00F7D9C2&
         Caption         =   " Date Range "
         ForeColor       =   &H80000008&
         Height          =   1065
         Left            =   -74910
         TabIndex        =   91
         Top             =   330
         Width           =   2115
         Begin ITGControls.ITGDateBox dtbTo 
            Height          =   285
            Left            =   660
            TabIndex        =   69
            Top             =   585
            Width           =   1275
            _ExtentX        =   2249
            _ExtentY        =   503
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Text            =   ""
            SendKeysTab     =   -1  'True
         End
         Begin ITGControls.ITGDateBox dtbFrom 
            Height          =   285
            Left            =   660
            TabIndex        =   68
            Top             =   255
            Width           =   1275
            _ExtentX        =   2249
            _ExtentY        =   503
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Text            =   ""
            SendKeysTab     =   -1  'True
         End
         Begin VB.Label Label5 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "To"
            Height          =   195
            Left            =   165
            TabIndex        =   93
            Top             =   615
            Width           =   180
         End
         Begin VB.Label Label4 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "From"
            Height          =   195
            Left            =   180
            TabIndex        =   92
            Top             =   300
            Width           =   360
         End
      End
      Begin MSDataGridLib.DataGrid dtgHistory 
         Height          =   2310
         Left            =   -72705
         TabIndex        =   72
         Top             =   315
         Width           =   8910
         _ExtentX        =   15716
         _ExtentY        =   4075
         _Version        =   393216
         AllowUpdate     =   0   'False
         HeadLines       =   1
         RowHeight       =   15
         FormatLocked    =   -1  'True
         BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ColumnCount     =   9
         BeginProperty Column00 
            DataField       =   "dDate"
            Caption         =   "Date"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   1
               Format          =   "MM/dd/yyyy"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   3
            EndProperty
         EndProperty
         BeginProperty Column01 
            DataField       =   "cType"
            Caption         =   "Transaction Type"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column02 
            DataField       =   "cTranNo"
            Caption         =   "Reference No."
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column03 
            DataField       =   "nQty"
            Caption         =   "Quantity"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   1
               Format          =   "#,##0.00"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   1
            EndProperty
         EndProperty
         BeginProperty Column04 
            DataField       =   "nPrice"
            Caption         =   "Price"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   1
               Format          =   "#,##0.00"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   1
            EndProperty
         EndProperty
         BeginProperty Column05 
            DataField       =   "nAmount"
            Caption         =   "Amount"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   1
               Format          =   "#,##0.00"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   1
            EndProperty
         EndProperty
         BeginProperty Column06 
            DataField       =   "cCode"
            Caption         =   "Client ID"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column07 
            DataField       =   "cName"
            Caption         =   "Client Name"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column08 
            DataField       =   "lCancelled"
            Caption         =   "Active/Cancelled"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   5
               Format          =   ""
               HaveTrueFalseNull=   1
               TrueValue       =   "Cancelled"
               FalseValue      =   "Active"
               NullValue       =   "Cancelled"
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   7
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            BeginProperty Column00 
               ColumnWidth     =   1200.189
            EndProperty
            BeginProperty Column01 
               ColumnWidth     =   1454.74
            EndProperty
            BeginProperty Column02 
               ColumnWidth     =   1395.213
            EndProperty
            BeginProperty Column03 
               Alignment       =   1
               ColumnWidth     =   1110.047
            EndProperty
            BeginProperty Column04 
               Alignment       =   1
               ColumnWidth     =   1154.835
            EndProperty
            BeginProperty Column05 
               Alignment       =   1
               ColumnWidth     =   1620.284
            EndProperty
            BeginProperty Column06 
            EndProperty
            BeginProperty Column07 
               ColumnWidth     =   3569.953
            EndProperty
            BeginProperty Column08 
            EndProperty
         EndProperty
      End
      Begin ITGControls.ITGCommandButton cmdHistory 
         Height          =   315
         Left            =   -74910
         TabIndex        =   70
         Top             =   1440
         Width           =   2115
         _ExtentX        =   3731
         _ExtentY        =   556
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Caption         =   "Show History"
      End
      Begin ITGControls.ITGCommandButton cmdPrintHistory 
         Height          =   315
         Left            =   -74910
         TabIndex        =   71
         Top             =   1785
         Width           =   2115
         _ExtentX        =   3731
         _ExtentY        =   556
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Caption         =   "Print History"
      End
      Begin MSDataGridLib.DataGrid dtgBudget 
         Height          =   2310
         Left            =   -75000
         TabIndex        =   73
         Top             =   315
         Width           =   11205
         _ExtentX        =   19764
         _ExtentY        =   4075
         _Version        =   393216
         HeadLines       =   1
         RowHeight       =   15
         FormatLocked    =   -1  'True
         BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ColumnCount     =   5
         BeginProperty Column00 
            DataField       =   ""
            Caption         =   "Type"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column01 
            DataField       =   ""
            Caption         =   "Period"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column02 
            DataField       =   ""
            Caption         =   "Volume"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column03 
            DataField       =   ""
            Caption         =   "Value"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column04 
            DataField       =   ""
            Caption         =   "Variance"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            BeginProperty Column00 
               ColumnWidth     =   1785.26
            EndProperty
            BeginProperty Column01 
               ColumnWidth     =   3674.835
            EndProperty
            BeginProperty Column02 
               ColumnWidth     =   1530.142
            EndProperty
            BeginProperty Column03 
            EndProperty
            BeginProperty Column04 
               ColumnWidth     =   1755.213
            EndProperty
         EndProperty
      End
      Begin MSDataGridLib.DataGrid dtgC 
         Height          =   2310
         Left            =   -75000
         TabIndex        =   74
         Top             =   315
         Width           =   11205
         _ExtentX        =   19764
         _ExtentY        =   4075
         _Version        =   393216
         AllowArrows     =   -1  'True
         HeadLines       =   1
         RowHeight       =   15
         TabAction       =   2
         FormatLocked    =   -1  'True
         BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ColumnCount     =   6
         BeginProperty Column00 
            DataField       =   "cCompItemNo"
            Caption         =   "Product ID"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   1
               Format          =   "#,##0.00"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   1
            EndProperty
         EndProperty
         BeginProperty Column01 
            DataField       =   "cCompItemDesc"
            Caption         =   "Product Name"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column02 
            DataField       =   "cPDDesc"
            Caption         =   "Product Division"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column03 
            DataField       =   "nQty"
            Caption         =   "Quantity"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   1
               Format          =   "#,##0.00"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   1
            EndProperty
         EndProperty
         BeginProperty Column04 
            DataField       =   "nSRPrice"
            Caption         =   "SRP"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   1
               Format          =   "#,##0.00"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   1
            EndProperty
         EndProperty
         BeginProperty Column05 
            DataField       =   "nWSPrice"
            Caption         =   "WSP"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   1
               Format          =   "#,##0.00"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   1
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            BeginProperty Column00 
               Button          =   -1  'True
               ColumnWidth     =   1785.26
            EndProperty
            BeginProperty Column01 
               Locked          =   -1  'True
               ColumnWidth     =   3674.835
            EndProperty
            BeginProperty Column02 
               Locked          =   -1  'True
               ColumnWidth     =   1709.858
            EndProperty
            BeginProperty Column03 
               Alignment       =   1
            EndProperty
            BeginProperty Column04 
               Alignment       =   1
               Locked          =   -1  'True
            EndProperty
            BeginProperty Column05 
               Alignment       =   1
               Locked          =   -1  'True
            EndProperty
         EndProperty
      End
   End
   Begin ITGControls.ITGTab SSTab1 
      Height          =   5175
      Left            =   45
      TabIndex        =   94
      Top             =   1050
      Width           =   11205
      _ExtentX        =   19764
      _ExtentY        =   9128
      TabCount        =   2
      TabCaption(0)   =   "               Main               "
      TabContCtrlCnt(0)=   1
      Tab(0)ContCtrlCap(1)=   "ComunionFrames1"
      TabCaption(1)   =   "               List               "
      TabContCtrlCnt(1)=   1
      Tab(1)ContCtrlCap(1)=   "dtgList"
      TabTheme        =   2
      ActiveTabBackStartColor=   16250865
      ActiveTabBackEndColor=   16243138
      InActiveTabBackStartColor=   16243138
      InActiveTabBackEndColor=   16243138
      InActiveTabForeColor=   0
      BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      OuterBorderColor=   4210752
      TopLeftInnerBorderColor=   4210752
      BottomRightInnerBorderColor=   4210752
      DisabledTabBackColor=   16243138
      DisabledTabForeColor=   -2147483630
      Begin MSDataGridLib.DataGrid dtgList 
         Height          =   4335
         Left            =   -75000
         TabIndex        =   84
         Top             =   360
         Width           =   11205
         _ExtentX        =   19764
         _ExtentY        =   7646
         _Version        =   393216
         AllowUpdate     =   0   'False
         AllowArrows     =   -1  'True
         Appearance      =   0
         HeadLines       =   1
         RowHeight       =   15
         TabAction       =   2
         FormatLocked    =   -1  'True
         BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ColumnCount     =   6
         BeginProperty Column00 
            DataField       =   "cItemNo"
            Caption         =   "Product ID"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   "0"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column01 
            DataField       =   "cDesc"
            Caption         =   "Description"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column02 
            DataField       =   "cPDCode"
            Caption         =   "Product Division"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column03 
            DataField       =   "cPartNo"
            Caption         =   "Part Number"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column04 
            DataField       =   "cType"
            Caption         =   "Type"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column05 
            DataField       =   "cCosting"
            Caption         =   "Costing"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            AllowRowSizing  =   0   'False
            BeginProperty Column00 
               ColumnAllowSizing=   -1  'True
               Locked          =   -1  'True
               ColumnWidth     =   1695.118
            EndProperty
            BeginProperty Column01 
               Locked          =   -1  'True
               ColumnWidth     =   3360.189
            EndProperty
            BeginProperty Column02 
               Locked          =   -1  'True
            EndProperty
            BeginProperty Column03 
               Locked          =   -1  'True
            EndProperty
            BeginProperty Column04 
               Locked          =   -1  'True
            EndProperty
            BeginProperty Column05 
               Locked          =   -1  'True
            EndProperty
         EndProperty
      End
      Begin ITGControls.ComunionFrames ComunionFrames1 
         Height          =   4815
         Left            =   0
         Top             =   315
         Width           =   11205
         _ExtentX        =   19764
         _ExtentY        =   8493
         FrameColor      =   4210752
         BackColor       =   16243138
         FillColor       =   16243138
         RoundedCorner   =   0   'False
         Caption         =   "Information"
         Alignment       =   0
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ThemeColor      =   5
         ColorFrom       =   16243138
         ColorTo         =   16250865
         Begin ITGControls.ComunionButton cmdPrevious 
            Height          =   375
            Left            =   7920
            TabIndex        =   105
            Top             =   4200
            Width           =   975
            _ExtentX        =   1720
            _ExtentY        =   661
            BTYPE           =   2
            TX              =   "Previous"
            ENAB            =   -1  'True
            BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            COLTYPE         =   1
            FOCUSR          =   -1  'True
            BCOL            =   15790320
            BCOLO           =   15790320
            FCOL            =   0
            FCOLO           =   0
            MCOL            =   12632256
            MPTR            =   1
            MICON           =   "frmMaintProduct.frx":0D34
            UMCOL           =   -1  'True
            SOFT            =   0   'False
            PICPOS          =   0
            NGREY           =   0   'False
            FX              =   0
            HAND            =   0   'False
            CHECK           =   0   'False
            VALUE           =   0   'False
         End
         Begin VB.CommandButton cmdPickPD 
            Height          =   300
            Left            =   2940
            Picture         =   "frmMaintProduct.frx":0D50
            Style           =   1  'Graphical
            TabIndex        =   13
            Top             =   3465
            Visible         =   0   'False
            Width           =   315
         End
         Begin VB.ComboBox cboType 
            Appearance      =   0  'Flat
            BackColor       =   &H00FFFFFF&
            Height          =   315
            ItemData        =   "frmMaintProduct.frx":0E9A
            Left            =   1485
            List            =   "frmMaintProduct.frx":0EB0
            Style           =   2  'Dropdown List
            TabIndex        =   8
            Top             =   1470
            Width           =   1455
         End
         Begin VB.CommandButton cmdPickPC 
            Height          =   300
            Left            =   2940
            Picture         =   "frmMaintProduct.frx":0EF0
            Style           =   1  'Graphical
            TabIndex        =   5
            Top             =   3120
            Visible         =   0   'False
            Width           =   315
         End
         Begin VB.CommandButton cmdPickWH 
            Height          =   300
            Left            =   2940
            Picture         =   "frmMaintProduct.frx":103A
            Style           =   1  'Graphical
            TabIndex        =   10
            Top             =   2160
            Width           =   315
         End
         Begin VB.Timer Timer1 
            Interval        =   300
            Left            =   120
            Top             =   0
         End
         Begin ITGControls.ITGCheckBox chkBatch 
            Height          =   300
            Left            =   1470
            TabIndex        =   17
            Top             =   2790
            Width           =   1080
            _ExtentX        =   1905
            _ExtentY        =   529
            BackColor       =   16243138
            Caption         =   "Per Batch"
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
         End
         Begin ITGControls.ITGTextBox txtItemNo 
            Height          =   285
            Left            =   120
            TabIndex        =   0
            Top             =   540
            Width           =   3225
            _ExtentX        =   5477
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            BackColor       =   14745599
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            AllCaps         =   -1  'True
            MaxLength       =   25
            Mandatory       =   -1  'True
            Label           =   "Product ID"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelForeColor  =   0
            LabelWidth      =   1320
            TextBoxWidth    =   1845
            Required        =   -1  'True
         End
         Begin ITGControls.ITGTextBox txtDesc 
            Height          =   285
            Left            =   120
            TabIndex        =   2
            Top             =   855
            Width           =   6510
            _ExtentX        =   11271
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            BackColor       =   14745599
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Mandatory       =   -1  'True
            Label           =   "Product Name"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelForeColor  =   0
            LabelWidth      =   1320
            TextBoxWidth    =   5130
            Required        =   -1  'True
         End
         Begin ITGControls.ITGTextBox txtPCCode 
            Height          =   285
            Left            =   120
            TabIndex        =   4
            Top             =   3120
            Visible         =   0   'False
            Width           =   2790
            _ExtentX        =   4710
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            BackColor       =   14745599
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            AllCaps         =   -1  'True
            Mandatory       =   -1  'True
            Label           =   "Unit Division"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelForeColor  =   0
            LabelWidth      =   1320
            TextBoxWidth    =   1410
            Required        =   -1  'True
         End
         Begin ITGControls.ITGTextBox txtWH 
            Height          =   285
            Left            =   120
            TabIndex        =   9
            Top             =   2160
            Width           =   2790
            _ExtentX        =   4710
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            BackColor       =   14745599
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            AllCaps         =   -1  'True
            Mandatory       =   -1  'True
            Label           =   "Warehouse"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelForeColor  =   0
            LabelWidth      =   1320
            TextBoxWidth    =   1410
            Required        =   -1  'True
         End
         Begin ITGControls.ITGTextBox txtSRP 
            Height          =   285
            Left            =   3900
            TabIndex        =   11
            Top             =   1485
            Width           =   2700
            _ExtentX        =   4551
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Text            =   "0"
            DataType        =   1
            DecimalPlace    =   2
            Label           =   "SRP"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelWidth      =   1250
            TextBoxWidth    =   1390
            Required        =   -1  'True
         End
         Begin ITGControls.ITGTextBox txtPD 
            Height          =   285
            Left            =   120
            TabIndex        =   12
            Top             =   3465
            Visible         =   0   'False
            Width           =   2790
            _ExtentX        =   4710
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            AllCaps         =   -1  'True
            Label           =   "Product Division"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelWidth      =   1320
            TextBoxWidth    =   1410
            Required        =   -1  'True
         End
         Begin ITGControls.ITGTextBox txtPCDesc 
            Height          =   285
            Left            =   3270
            TabIndex        =   6
            Top             =   3120
            Visible         =   0   'False
            Width           =   3360
            _ExtentX        =   5821
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            BackColor       =   14737632
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            AllCaps         =   -1  'True
            Label           =   "ITGtext"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelWidth      =   0
            TextBoxWidth    =   3300
            Enabled         =   0   'False
         End
         Begin ITGControls.ITGTextBox txtWSP 
            Height          =   285
            Left            =   3900
            TabIndex        =   14
            Top             =   1800
            Width           =   2700
            _ExtentX        =   4551
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Text            =   "0"
            DataType        =   1
            DecimalPlace    =   2
            Label           =   "WSP"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelWidth      =   1250
            TextBoxWidth    =   1390
         End
         Begin ITGControls.ITGTextBox txtAveCost 
            Height          =   285
            Left            =   3900
            TabIndex        =   19
            Top             =   2745
            Visible         =   0   'False
            Width           =   2700
            _ExtentX        =   4551
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Text            =   "0"
            DataType        =   1
            DecimalPlace    =   2
            Label           =   "Average Cost"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelWidth      =   1250
            TextBoxWidth    =   1390
            Enabled         =   0   'False
         End
         Begin ITGControls.ITGTextBox txtPartNo 
            Height          =   285
            Left            =   3570
            TabIndex        =   1
            Top             =   540
            Visible         =   0   'False
            Width           =   3060
            _ExtentX        =   5186
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Label           =   "Barcode ID"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelWidth      =   1320
            TextBoxWidth    =   1680
            Required        =   -1  'True
         End
         Begin ITGControls.ITGTextBox txtPurDesc 
            Height          =   285
            Left            =   120
            TabIndex        =   3
            Top             =   1170
            Width           =   6510
            _ExtentX        =   11271
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            BackColor       =   14745599
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Mandatory       =   -1  'True
            Label           =   "Purchase Desc"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelForeColor  =   0
            LabelWidth      =   1320
            TextBoxWidth    =   5130
         End
         Begin ITGControls.ITGTextBox txtType 
            Height          =   285
            Left            =   105
            TabIndex        =   97
            Tag             =   "cboType"
            Top             =   1470
            Width           =   2430
            _ExtentX        =   4075
            _ExtentY        =   503
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Mandatory       =   -1  'True
            Label           =   "Type"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelWidth      =   1400
            TextBoxWidth    =   970
            Required        =   -1  'True
         End
         Begin ITGControls.ITGTextBox txtStdCost 
            Height          =   285
            Left            =   3900
            TabIndex        =   18
            Top             =   2430
            Visible         =   0   'False
            Width           =   2700
            _ExtentX        =   4551
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Text            =   "0"
            DataType        =   1
            DecimalPlace    =   2
            Label           =   "Standard Cost"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelWidth      =   1250
            TextBoxWidth    =   1390
         End
         Begin RichTextLib.RichTextBox txtLongDesc 
            Height          =   645
            Left            =   135
            TabIndex        =   20
            Top             =   4080
            Width           =   6480
            _ExtentX        =   11430
            _ExtentY        =   1138
            _Version        =   393217
            Enabled         =   -1  'True
            ScrollBars      =   2
            MaxLength       =   1000
            Appearance      =   0
            TextRTF         =   $"frmMaintProduct.frx":1184
         End
         Begin MSComDlg.CommonDialog cd 
            Left            =   10425
            Top             =   2040
            _ExtentX        =   847
            _ExtentY        =   847
            _Version        =   393216
         End
         Begin ITGControls.ITGTextBox txtMP 
            Height          =   285
            Left            =   3900
            TabIndex        =   16
            Top             =   2115
            Visible         =   0   'False
            Width           =   2700
            _ExtentX        =   4551
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Text            =   "0"
            DataType        =   1
            DecimalPlace    =   2
            Label           =   "Member Price"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelWidth      =   1250
            TextBoxWidth    =   1390
         End
         Begin VB.ComboBox cboCosting 
            Appearance      =   0  'Flat
            BackColor       =   &H00FFFFFF&
            Height          =   315
            ItemData        =   "frmMaintProduct.frx":1200
            Left            =   1470
            List            =   "frmMaintProduct.frx":1210
            Style           =   2  'Dropdown List
            TabIndex        =   15
            Top             =   2475
            Width           =   1455
         End
         Begin VB.ComboBox cboUnit 
            Appearance      =   0  'Flat
            BackColor       =   &H00FFFFFF&
            Height          =   315
            ItemData        =   "frmMaintProduct.frx":1231
            Left            =   1470
            List            =   "frmMaintProduct.frx":1241
            Style           =   2  'Dropdown List
            TabIndex        =   7
            Top             =   1815
            Width           =   1455
         End
         Begin ITGControls.ITGTextBox txtUnit 
            Height          =   285
            Left            =   120
            TabIndex        =   96
            Top             =   1845
            Width           =   2790
            _ExtentX        =   4710
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            BackColor       =   14745599
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            MaxLength       =   6
            Mandatory       =   -1  'True
            Label           =   "Unit"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelForeColor  =   0
            LabelWidth      =   1320
            TextBoxWidth    =   1410
            Required        =   -1  'True
         End
         Begin ITGControls.ITGTextBox txtCosting 
            Height          =   285
            Left            =   1680
            TabIndex        =   98
            Tag             =   "cboCosting"
            Top             =   2805
            Visible         =   0   'False
            Width           =   795
            _ExtentX        =   1296
            _ExtentY        =   503
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Mandatory       =   -1  'True
            Label           =   "Costing"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelWidth      =   0
            TextBoxWidth    =   735
         End
         Begin ITGControls.ComunionButton cmdNext 
            Height          =   375
            Left            =   8880
            TabIndex        =   106
            Top             =   4200
            Width           =   975
            _ExtentX        =   1720
            _ExtentY        =   661
            BTYPE           =   2
            TX              =   "Next"
            ENAB            =   -1  'True
            BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            COLTYPE         =   1
            FOCUSR          =   -1  'True
            BCOL            =   15790320
            BCOLO           =   15790320
            FCOL            =   0
            FCOLO           =   0
            MCOL            =   12632256
            MPTR            =   1
            MICON           =   "frmMaintProduct.frx":125A
            UMCOL           =   -1  'True
            SOFT            =   0   'False
            PICPOS          =   0
            NGREY           =   0   'False
            FX              =   0
            HAND            =   0   'False
            CHECK           =   0   'False
            VALUE           =   0   'False
         End
         Begin VB.Image iPhoto 
            Appearance      =   0  'Flat
            BorderStyle     =   1  'Fixed Single
            DataField       =   "iPhoto2"
            Height          =   3390
            Left            =   6810
            Stretch         =   -1  'True
            Top             =   735
            Width           =   4110
         End
         Begin VB.Line Line1 
            X1              =   120
            X2              =   6600
            Y1              =   3840
            Y2              =   3840
         End
         Begin VB.Label Label2 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "Product Image"
            BeginProperty Font 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00000000&
            Height          =   195
            Left            =   6795
            TabIndex        =   101
            Top             =   525
            Width           =   1260
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "Long Description"
            Height          =   195
            Left            =   150
            TabIndex        =   100
            Top             =   3855
            Width           =   1185
         End
         Begin VB.Label Label3 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "Costing"
            Height          =   195
            Left            =   150
            TabIndex        =   99
            Top             =   2475
            Width           =   540
         End
      End
      Begin CRVIEWERLibCtl.CRViewer ITGReportViewer 
         Height          =   6200
         Left            =   -74940
         TabIndex        =   95
         Top             =   360
         Visible         =   0   'False
         Width           =   10500
         lastProp        =   500
         _cx             =   5080
         _cy             =   5080
         DisplayGroupTree=   0   'False
         DisplayToolbar  =   -1  'True
         EnableGroupTree =   0   'False
         EnableNavigationControls=   -1  'True
         EnableStopButton=   -1  'True
         EnablePrintButton=   -1  'True
         EnableZoomControl=   -1  'True
         EnableCloseButton=   -1  'True
         EnableProgressControl=   -1  'True
         EnableSearchControl=   -1  'True
         EnableRefreshButton=   0   'False
         EnableDrillDown =   -1  'True
         EnableAnimationControl=   -1  'True
         EnableSelectExpertButton=   0   'False
         EnableToolbar   =   -1  'True
         DisplayBorder   =   0   'False
         DisplayTabs     =   0   'False
         DisplayBackgroundEdge=   -1  'True
         SelectionFormula=   ""
         EnablePopupMenu =   -1  'True
         EnableExportButton=   -1  'True
         EnableSearchExpertButton=   0   'False
         EnableHelpButton=   0   'False
         LaunchHTTPHyperlinksInNewBrowser=   -1  'True
      End
   End
   Begin VB.Label lblDetails 
      BackColor       =   &H00F7D9C2&
      Caption         =   "Product Division, Balance "
      ForeColor       =   &H00000000&
      Height          =   255
      Left            =   180
      TabIndex        =   89
      Top             =   555
      Visible         =   0   'False
      Width           =   9360
   End
   Begin VB.Label lblHeader 
      BackColor       =   &H00F7D9C2&
      Caption         =   "Product ID - Description"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   375
      Left            =   180
      TabIndex        =   88
      Top             =   195
      Width           =   9525
   End
   Begin VB.Image imgLogo 
      BorderStyle     =   1  'Fixed Single
      Height          =   930
      Left            =   9990
      Stretch         =   -1  'True
      Top             =   45
      Width           =   1125
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00404040&
      Height          =   975
      Left            =   45
      Top             =   45
      Width           =   9915
   End
End
Attribute VB_Name = "frmMaintProduct"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

'Recordset variables
Private WithEvents rsHeader As ADODB.Recordset
Attribute rsHeader.VB_VarHelpID = -1
Private rsWH As ADODB.Recordset
Private rsUnit As ADODB.Recordset
Private rsC As ADODB.Recordset
'Private rsDummy As ADODB.Recordset
Private rsDummyC As ADODB.Recordset
Private rsSupp As ADODB.Recordset
Private rsCustCode As ADODB.Recordset
Private rsImage As ADODB.Recordset

Private rsHistory As ADODB.Recordset
Private rsAuto As ADODB.Recordset
'ADO Connection variables

Private connHeader As ADODB.Connection
Private connWH As ADODB.Connection
Private connUnit As ADODB.Connection
Private connC As ADODB.Connection
Private connSupp As ADODB.Connection
Private connCustCode As ADODB.Connection
Private connImage As ADODB.Connection

'Form mode enumeration
Public Enum eProductMode
    Normal
    AddNewEdit
    Find
End Enum
Public Mode As eProductMode

'Other declaration
Public dtgName As String
Public sBit As String
Private vBM As Variant 'Recordset bookmark variable

Private sTempPath As String ' Path of the Picture : Temporary
Private stm As New ADODB.Stream

'Security Acess Level variables
Public lACNew As Boolean
Public lACEdit As Boolean
Public lACDelete As Boolean
Public lACPost As Boolean
Public lACCancel As Boolean
Public lACPrint As Boolean

Private Sub cboCosting_Click()
    txtCosting = Trim(cboCosting)
End Sub

Private Sub cboCosting_KeyPress(KeyAscii As Integer)
    SendKeysTab KeyAscii
End Sub

Private Sub cboUnit_Click()
    txtUnit = Trim(cboUnit)
End Sub

Private Sub cboUnit_KeyPress(KeyAscii As Integer)
    KeyAscii = 0
End Sub

Private Sub cboPrimaryUnit_Click()
    txtUnit = Trim(cboUnit)
End Sub
              
Private Sub cboPrimaryUnit_KeyPress(KeyAscii As Integer)
    KeyAscii = 0
End Sub

Private Sub cboType_Click()
    txtType = Trim(cboType)
End Sub

Private Sub cboType_KeyPress(KeyAscii As Integer)
    SendKeysTab KeyAscii
End Sub

Private Sub cboUOM_Click()
    If dtgUnit.Col = 5 Then
        rsUnit!cType = cboUOM
    ElseIf dtgUnit.Col = 0 Then
        rsUnit!cUnit = cboUOM
    End If
End Sub

Private Sub cboUOM_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        If dtgUnit.Col = 5 Then
            rsUnit!cType = cboUOM
            cboUOM.Visible = False
            dtgUnit.Col = 6
            dtgUnit.SetFocus
        ElseIf dtgUnit.Col = 0 Then
            rsUnit!cUnit = cboUOM
            cboUOM.Visible = False
            dtgUnit.Col = 6
            dtgUnit.SetFocus
        End If
    ElseIf KeyCode = vbKeyEscape Then
        cboUOM.Visible = False
    End If
End Sub

Private Sub cboUOM_LostFocus()
    cboUOM.Visible = False
End Sub

Private Sub cmdHistory_Click()
Dim cmdHist As ADODB.Command

    If Not IsDate(dtbFrom.Text) Then
        MsgBox "Please input date parameter.", vbInformation, msgTtl
        dtbFrom.SetFocus
        Exit Sub
    ElseIf Not IsDate(dtbTo.Text) Then
        MsgBox "Please input date parameter.", vbInformation, msgTtl
        dtbTo.SetFocus
        Exit Sub
    End If
    
    Set rsHistory = Nothing
    Set rsHistory = New Recordset
    Set dtgHistory.DataSource = Nothing
    dtgHistory.Refresh
  
    Set cmdHist = New ADODB.Command

    With cmdHist
        .ActiveConnection = cn
        .CommandTimeout = 1000
        .CommandText = "rsp_Inventory_Product_Movement_History"
        .CommandType = adCmdStoredProc
        
        .Parameters("@cFrom") = Trim(txtItemNo)
        .Parameters("@cTo") = Trim(txtItemNo)
        .Parameters("@cCompID") = COID

        .Parameters("@cCompName") = ""
        .Parameters("@cAddress1") = ""
        .Parameters("@cAddress2") = ""
        .Parameters("@cReportTitle") = ""
        .Parameters("@cCriteria1") = ""
        .Parameters("@cCriteria") = ""

        .Parameters("@dDateFrom") = Trim(dtbFrom.Text)
        .Parameters("@dDateTo") = Trim(dtbTo.Text)
    End With

    Set rsHistory = cmdHist.Execute()
    Set cmdHist = Nothing
    
    rsHistory.Filter = "cItemNo = '" & Trim(txtItemNo) & "'"
    Set dtgHistory.DataSource = rsHistory
    
End Sub

Private Sub cmdPickPD_Click()
    If lPickListActive Then Exit Sub
    frmITGPicker.zType = QProductDivision
    'added condition
    frmITGPicker.Condition = "AND cCompanyID = '" & COID & "'"
    
    frmITGPicker.Show vbModal
    txtPD = frmITGPicker.zCode
    If Trim(txtPD) <> "" Then SendKeys "{Tab}"
End Sub

Private Sub cmdPickGroup_Click(Index As Integer)
    If lPickListActive Then Exit Sub
    RepName = Index
    frmITGPicker.zType = QGroupings
    frmITGPicker.Condition = "Where cCompanyID = '" & COID & "'"
    frmITGPicker.Show vbModal
    txtGroup(Index) = frmITGPicker.zCode
    txtGroupName(Index) = frmITGPicker.zName
    If Trim(txtGroupName(Index)) <> "" Then SendKeys "{Tab}"
End Sub

Private Sub cmdWHBalance_Click()
    If Trim(txtItemNo) = "" Then Exit Sub
    ShowProductBalance_WH
End Sub

Private Sub dtgBudget_KeyDown(KeyCode As Integer, Shift As Integer)
    If Mode <> AddNewEdit Then Exit Sub
    If (Shift = vbCtrlMask And KeyCode = 83) Then
        TBSave
    End If
End Sub

Private Sub dtgC_AfterColUpdate(ByVal ColIndex As Integer)
    If Mode <> AddNewEdit Then Exit Sub
    Select Case ColIndex
        Case 0
            If GetValueFrTable("cItemNo", "ITEM", "cItemNo = '" & Trim(dtgC.Columns(0).Value) & "'") <> "" Then
                GetItemValues rsC, dtgC, dtgC.Columns(0).Value
            End If
    End Select
End Sub

Private Sub dtgC_ButtonClick(ByVal ColIndex As Integer)
    If Mode <> AddNewEdit Then Exit Sub
    Select Case ColIndex
        Case 0
            If lPickListActive Then Exit Sub
            sFilterString = Trim(dtgC.Columns(0).Text)
            frmITGPickList.mType = Product
            frmITGPickList.Show vbModal
            dtgC.Columns(0).Value = Trim(frmITGPickList.mCode) & ""
            If (Trim(frmITGPickList.mName) & "") <> "" Then
                GetItemValues rsC, dtgC, dtgC.Columns(0).Value
            End If
            dtgC.Col = 3
            dtgC.Columns(3).Value = 0
    End Select
End Sub

'Set the datagrid as active control
Private Sub dtgC_Click()
    If Mode = AddNewEdit Then dtgName = dtgC.Name
End Sub

Private Sub dtgC_Error(ByVal DataError As Integer, Response As Integer)
    Response = 0
End Sub

Private Sub dtgC_GotFocus()
    dtgName = dtgC.Name
End Sub

Private Sub dtgC_KeyDown(KeyCode As Integer, Shift As Integer)
    If Mode <> AddNewEdit Then Exit Sub
    If (Shift = vbCtrlMask And KeyCode = 45) Then
        TBNewLine
    ElseIf (Shift = vbCtrlMask And KeyCode = 46) Then
        TBDeleteLine
    ElseIf (Shift = vbCtrlMask And KeyCode = 83) Then
        TBSave
    End If
End Sub

Private Sub dtgC_KeyPress(KeyAscii As Integer)
    If Mode <> AddNewEdit Then Exit Sub
    If rsC.RecordCount = 0 Then Exit Sub
    
    If KeyAscii = 39 Then KeyAscii = 0 'Apostrophe {'}
    If KeyAscii = 13 Then
        Select Case dtgC.Col
            Case 0
                If GetValueFrTable("cItemNo", "ITEM", "cItemNo = '" & Trim(dtgC.Columns(0).Text) & "'") = "" Then
                    dtgC_ButtonClick (0) 'use button click
                End If
            Case Else
                SendKeys "{Tab}"
        End Select
    Else: KeyAscii = Asc(UCase(Chr(KeyAscii)))
    End If
End Sub

'Right click menu popup
Private Sub dtgC_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Mode <> AddNewEdit Then Exit Sub
    If Button = 2 Then
        dtgName = dtgC.Name
        PopupMenu ITGLedgerMain.mnuDetail
    End If
End Sub

Private Sub dtgHistory_HeadClick(ByVal ColIndex As Integer)
On Error Resume Next
    SortGrid dtgHistory, ColIndex, rsHistory
End Sub

Private Sub dtgHistory_KeyDown(KeyCode As Integer, Shift As Integer)
    If Mode <> AddNewEdit Then Exit Sub
    If (Shift = vbCtrlMask And KeyCode = 83) Then
        TBSave
    End If
End Sub

Private Sub dtgList_HeadClick(ByVal ColIndex As Integer)
    SortGrid dtgList, ColIndex, rsHeader
End Sub

Private Sub dtgSupp_ButtonClick(ByVal ColIndex As Integer)
If Mode <> AddNewEdit Then Exit Sub
    Select Case ColIndex
        Case 0
            If lPickListActive Then Exit Sub
            sFilterString = Trim(dtgSupp.Columns(0).Text)
            frmITGPickList.mType = Client_Supplier
            frmITGPickList.Show vbModal
            dtgSupp.Columns(0).Value = Trim(frmITGPickList.mCode) & ""
            dtgSupp.Columns(1).Value = Trim(frmITGPickList.mName) & ""
            If Trim(dtgSupp.Columns(1).Text) <> "" Then SendKeys "{Tab}"
    End Select
End Sub

Private Sub dtgSupp_Click()
    If Mode = AddNewEdit Then dtgName = dtgSupp.Name
End Sub

Private Sub dtgSupp_Error(ByVal DataError As Integer, Response As Integer)
    Response = 0
End Sub

Private Sub dtgSupp_GotFocus()
    dtgName = dtgSupp.Name
End Sub

Private Sub dtgSupp_KeyDown(KeyCode As Integer, Shift As Integer)
    If Mode <> AddNewEdit Then Exit Sub
    If (Shift = vbCtrlMask And KeyCode = 45) Then
        TBNewLine
    ElseIf (Shift = vbCtrlMask And KeyCode = 46) Then
        TBDeleteLine
    ElseIf (Shift = vbCtrlMask And KeyCode = 83) Then
        TBSave
    End If
End Sub

Private Sub dtgSupp_KeyPress(KeyAscii As Integer)
If Mode <> AddNewEdit Then Exit Sub
    If rsSupp.RecordCount = 0 Then Exit Sub

    If KeyAscii = 39 Then KeyAscii = 0 'Apostrophe {'}

    If KeyAscii = 13 Then
        Select Case dtgSupp.Col
            Case 0
                If dtgSupp.Columns(0).Value <> "" Then
                   SendKeys "{Tab}"
                Else
                    dtgSupp_ButtonClick 0
                End If
            Case 1
                TBNewLine
            Case Else
                SendKeys "{Tab}"
        End Select
    Else: KeyAscii = Asc(UCase(Chr(KeyAscii)))
    End If
End Sub

Private Sub dtgSupp_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Mode <> AddNewEdit Then Exit Sub
    If Button = 2 Then
        dtgName = dtgSupp.Name
        PopupMenu ITGLedgerMain.mnuDetail
    End If
End Sub

'Private Sub dtgList_HeadClick(ByVal ColIndex As Integer)
'    SortGrid dtgList, ColIndex, rsHeader
'End Sub

Private Sub dtgCustCode_ButtonClick(ByVal ColIndex As Integer)
If Mode <> AddNewEdit Then Exit Sub
    Select Case ColIndex
        Case 0
            If lPickListActive Then Exit Sub
            sFilterString = Trim(dtgCustCode.Columns(0).Text)
            frmITGPickList.mType = Client_Customer
            frmITGPickList.Show vbModal
            dtgCustCode.Columns(0).Value = Trim(frmITGPickList.mCode) & ""
            dtgCustCode.Columns(1).Value = Trim(frmITGPickList.mName) & ""
            If Trim(dtgCustCode.Columns(1).Text) <> "" Then SendKeys "{Tab}"
    End Select
End Sub

Private Sub dtgCustCode_Click()
    If Mode = AddNewEdit Then dtgName = dtgCustCode.Name
End Sub

Private Sub dtgCustCode_Error(ByVal DataError As Integer, Response As Integer)
    Response = 0
End Sub

Private Sub dtgCustCode_GotFocus()
    dtgName = dtgCustCode.Name
End Sub

Private Sub dtgCustCode_KeyDown(KeyCode As Integer, Shift As Integer)
    If Mode <> AddNewEdit Then Exit Sub
    If (Shift = vbCtrlMask And KeyCode = 45) Then
        TBNewLine
    ElseIf (Shift = vbCtrlMask And KeyCode = 46) Then
        TBDeleteLine
    ElseIf (Shift = vbCtrlMask And KeyCode = 83) Then
        TBSave
    End If
End Sub

Private Sub dtgCustCode_KeyPress(KeyAscii As Integer)
If Mode <> AddNewEdit Then Exit Sub
    If rsCustCode.RecordCount = 0 Then Exit Sub

    If KeyAscii = 39 Then KeyAscii = 0 'Apostrophe {'}

    If KeyAscii = 13 Then
        Select Case dtgCustCode.Col
            Case 0
                If dtgCustCode.Columns(0).Value <> "" Then
                   SendKeys "{Tab}"
                Else
                    dtgCustCode_ButtonClick 0
                End If
            Case 1
                TBNewLine
            Case Else
                SendKeys "{Tab}"
        End Select
    Else: KeyAscii = Asc(UCase(Chr(KeyAscii)))
    End If
End Sub

Private Sub dtgCustCode_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Mode <> AddNewEdit Then Exit Sub
    If Button = 2 Then
        dtgName = dtgCustCode.Name
        PopupMenu ITGLedgerMain.mnuDetail
    End If
End Sub

Private Sub dtgUnit_AfterColUpdate(ByVal ColIndex As Integer)
    If Mode <> AddNewEdit Then Exit Sub
    Select Case ColIndex
        Case 0
        Case 4
            If IDExisting(rsUnit, "cBarcode", "ITEM_UNIT", rsUnit!cBarcode) = True Then
                MsgBox "Barcode is already existing.", vbInformation + vbCritical, msgTtl
                dtgUnit.Col = 4
            End If
        Case 5
            If IDExisting(rsUnit, "cType", "ITEM_UNIT", rsUnit!cType, "cType <> 'Consignee' and cItemNo = '" & Trim(rsUnit!cItemNo) & "'") = True Then
                MsgBox "Type is already existing.", vbInformation + vbCritical, msgTtl
                dtgUnit.Col = 5
            End If
        Case 6
            If IsNull(rsUnit!cRefID) = False Then
                If IDExisting(rsUnit, "cRefID", "ITEM_UNIT", rsUnit!cRefID, "cType = 'Consignee' and cItemNo = '" & Trim(rsUnit!cItemNo) & "'") = True Then
                    MsgBox "Reference is already existing.", vbInformation + vbCritical, msgTtl
                    dtgUnit.Col = 6
                End If
            End If
        Case 7
            If rsUnit!cRefID = "" And rsUnit!cType = "Consignee" Then
                MsgBox "Reference is mandatory.", vbInformation + vbCritical, msgTtl
                dtgUnit.Col = 7
            End If
    End Select
End Sub

Private Sub dtgUnit_ButtonClick(ByVal ColIndex As Integer)
    If Mode <> AddNewEdit Then Exit Sub
    Select Case ColIndex
        Case 0
            cboUOM.Clear
            cboUOM.AddItem "PCS"
            cboUOM.AddItem "PACK"
            cboUOM.AddItem "SET"
            Call MoveCombo(cboUOM, dtgUnit, dtgUnit.Columns(5))
            ComboLoadValue cboUOM, Trim(dtgUnit.Columns(5).Text)
        Case 5
            cboUOM.Clear
            cboUOM.AddItem "Price Points"
            cboUOM.AddItem "Per Item"
            cboUOM = "Price Points"
            Call MoveCombo(cboUOM, dtgUnit, dtgUnit.Columns(5))
            ComboLoadValue cboUOM, Trim(dtgUnit.Columns(5).Text)
        Case 6
            If lPickListActive Then Exit Sub
            sFilterString = Trim(dtgUnit.Columns(6).Text)
            frmITGPicker.zType = QCustomer
            frmITGPicker.Show vbModal
            dtgUnit.Columns(6).Text = frmITGPicker.zCode
            dtgUnit.Columns(7).Text = frmITGPicker.zName
            If Trim(dtgUnit.Columns(7).Text) <> "" Then SendKeys "{Tab}"
    End Select
End Sub

'Set the datagrid as active control
Private Sub dtgUnit_Click()
    If Mode = AddNewEdit Then dtgName = dtgUnit.Name
End Sub

Private Sub dtgUnit_Error(ByVal DataError As Integer, Response As Integer)
    Response = 0
End Sub

Private Sub dtgUnit_GotFocus()
    dtgName = dtgUnit.Name
End Sub

Private Sub dtgUnit_KeyDown(KeyCode As Integer, Shift As Integer)
    If Mode <> AddNewEdit Then Exit Sub
    If (Shift = vbCtrlMask And KeyCode = 45) Then
        TBNewLine
    ElseIf (Shift = vbCtrlMask And KeyCode = 46) Then
        TBDeleteLine
    ElseIf (Shift = vbCtrlMask And KeyCode = 83) Then
        TBSave
    End If
End Sub

Private Sub dtgUnit_KeyPress(KeyAscii As Integer)
    If Mode <> AddNewEdit Then Exit Sub
    If rsUnit.RecordCount = 0 Then Exit Sub

    If KeyAscii = 39 Then KeyAscii = 0 'Apostrophe {'}

    If KeyAscii = 13 Then
        Select Case dtgUnit.Col
            Case 0
            Case 4
                dtgUnit_AfterColUpdate 4
                SendKeys "{Tab}"
            Case 5
                dtgUnit_ButtonClick 5
                dtgUnit_AfterColUpdate 5
                SendKeys "{Tab}"
            Case 6
                dtgUnit_ButtonClick 6
                dtgUnit_AfterColUpdate 6
                SendKeys "{Tab}"
            Case 7
                dtgUnit_AfterColUpdate 7
                SendKeys "{Tab}"
            Case 8
                TBNewLine
            Case Else
                SendKeys "{Tab}"
        End Select
    Else
        KeyAscii = Asc(UCase(Chr(KeyAscii)))
    End If
End Sub

'Right click menu popup
Private Sub dtgUnit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Mode <> AddNewEdit Then Exit Sub
    If Button = 2 Then
        dtgName = dtgUnit.Name
        PopupMenu ITGLedgerMain.mnuDetail
    End If
End Sub

Public Sub TBBrowseImage()
    
    ' Browse for picture then load on PictureBox
    cd.Filter = "Bitmap (*.bmp)|*.bmp| JPEG (*.jpg;*.jpeg)|*.jpg;*.jpeg| GIF (*.gif)|*.gif| All (*.bmp;*.jpg;*.jpeg;*.gif)|*.bmp;*.jpg;*.jpeg;*.gif"
    cd.FilterIndex = 4
    cd.FileName = ""
    cd.ShowOpen

    sTempPath = Trim$(cd.FileName)
    If (Trim(sTempPath) <> "") Then
        iPhoto.Picture = LoadPicture(sTempPath)
    Else
        iPhoto.Picture = Nothing
        Exit Sub
    End If

    If (iPhoto.Picture <> 0) Then
        stm.Type = adTypeBinary
        stm.Open
        stm.LoadFromFile sTempPath
        rsHeader!iPhoto = stm.Read
        stm.Close
        Set stm = Nothing
    Else: rsHeader!iPhoto = Null
    End If

End Sub

'Call pick list module
Private Sub cmdPickPC_Click()
    If lPickListActive Then Exit Sub
    frmITGPicker.zType = QProfitCenter
    'added condition
    frmITGPicker.Condition = "where cCompanyID = '" & COID & "'"
    
    frmITGPicker.Show vbModal
    txtPCCode = frmITGPicker.zCode
    txtPCDesc = frmITGPicker.zName
    If Trim(txtPCDesc) <> "" Then SendKeys "{Tab}"
End Sub

Private Sub cmdPickWH_Click()
    If lPickListActive Then Exit Sub
    frmITGPicker.zType = QWarehouse
    frmITGPicker.Condition = "Where cCompanyID = '" & COID & "'"
    frmITGPicker.Show vbModal
    txtWH = frmITGPicker.zCode
    If Trim(txtWH) <> "" Then SendKeys "{Tab}"
End Sub

Private Sub dtgWH_KeyDown(KeyCode As Integer, Shift As Integer)
    If Mode <> AddNewEdit Then Exit Sub
    If (Shift = vbCtrlMask And KeyCode = 83) Then
        TBSave
    End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Dim iKey As Integer
    iKey = ToolbarIndex(KeyCode, Shift)
    If iKey <> 0 Then
        If ITGLedgerMain.tbrMain.Buttons(iKey).Enabled = True Then
            ToolbarFunction iKey
        End If
    End If
End Sub

'Set Your Object
Private Sub Form_Load()
        
    Set FrmName = Me
    FormSetup
    
    AcessBit Me, GetValueFrTable("AccessLevel", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' AND [Module] = 'MF21'")
    
    Set rsHeader = New ADODB.Recordset
    Set rsWH = New ADODB.Recordset
    Set rsUnit = New ADODB.Recordset
    Set rsC = New ADODB.Recordset
    Set rsSupp = New ADODB.Recordset
    Set rsCustCode = New ADODB.Recordset
    
    'CallComboBox Values
    Call LoadComboValues(cboCosting, "cParamName", "PARAMETER_SYSTEM", "WHERE cType = 'COSTING'", "nOrder")
    'Call LoadComboValues(cboType, "cParamName", "PARAMETER_SYSTEM", "WHERE cType = 'PRODTYPE'", "nOrder")
    
    Call LoadComboValues(cboType, "cParamName", "PARAMETER_USER", "WHERE cType = 'PRODTYPE'", "nOrder")
    Call LoadComboValues(cboUnit, "cUnitID", "UOM", "where cCompanyID = '" & Trim(COID) & "'") '------Paglagay ng laman ng combo box unit
    
    FormLocking True
    FormSearch True
    SearchObj True
    
    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, lACNew, , , , , , , , , True, , , True
    BitVisible ITGLedgerMain.tbrMain, True
    ITGLedgerMain.tbrMain.Buttons("btnFind").ButtonMenus("btnFindP").Enabled = True

    SetGroupName
    imgLogo.Picture = ITGLedgerMain.Picture1.Picture
    Mode = Find
    txtItemNo.Locked = False
    
    SetVisibleEnable
    
    '''' Code to visible the command button of prev and next
    cmdPrevious.Visible = False
    cmdNext.Visible = False
    '-----------------------------------------------------
    
End Sub

'Activate your Toolbar Mode
Private Sub Form_Activate()
    TBBitReload
End Sub

'Release your Object
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
    
    If Mode = AddNewEdit Then
        MsgBox "Unable to close. You are in Add/New/Edit mode." & vbCr & _
            " Must Save or Undo", vbCritical, Me.Caption
        Cancel = True
        Exit Sub
    End If
    
    CloseMenuTab ITGLedgerMain
    
    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , , , , , , , , , True
    BitVisible ITGLedgerMain.tbrMain
    ITGLedgerMain.tbrMain.Buttons("btnFind").ButtonMenus("btnFindP").Enabled = False
    
    Set rsHeader = Nothing
    Set rsWH = Nothing
    Set rsUnit = Nothing
    Set rsC = Nothing
    Set rsSupp = Nothing
    Set rsCustCode = Nothing
    Set rsImage = Nothing
'    Set rsDummy = Nothing
    Set rsDummyC = Nothing
    Set rsHistory = Nothing
    Set connHeader = Nothing
    Set connWH = Nothing
    Set connUnit = Nothing
    Set connC = Nothing
    Set connSupp = Nothing
    Set connCustCode = Nothing
    Set connImage = Nothing
    
    Set frmMaintProduct = Nothing

    lCloseWindow = True
    
End Sub

'Add new record to the recordset
Public Sub TBNew()
Dim sCode As String

    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , , , True, True, , , True, True, , , , True
    txtItemNo.BackColor = &HE0FFFF
    Mode = AddNewEdit
    
    Set rsImage = New ADODB.Recordset
    
    If rsHeader.State <> adStateOpen Then
        OpenNewConnection connHeader
        OpenNewConnection connWH
        OpenNewConnection connC
        OpenNewConnection connUnit
        OpenNewConnection connSupp
        OpenNewConnection connCustCode
        OpenNewConnection connImage
        OpenRecordsetWithCN rsWH, "*", "ITEM_W", connWH, "WHERE 1 = 0"
        OpenRecordsetWithCN rsC, "*", "ITEM_C", connC, "WHERE 1 = 0"
        OpenRecordsetWithCN rsUnit, "*", "ITEM_UNIT", connUnit, "WHERE 1 = 0"
        OpenRecordsetWithCN rsSupp, "*", "ITEM_SUPPLIER", connUnit, "WHERE 1 = 0"
        OpenRecordsetWithCN rsCustCode, "*", "ITEM_CUSTCODE", connCustCode, "WHERE 1 = 0"
        OpenRecordsetWithCN rsImage, "*", "ITEM_IMAGE", connImage, "WHERE 1 = 0"
        OpenRecordsetWithCN rsHeader, "*", "ITEM", connHeader, "WHERE 1 = 0"
        SetDataSource
        SetDataField
    Else
        vBM = rsHeader.Bookmark
        NewImage
        Set iPhoto = Nothing
    End If
    
'    NewImage
    
    rsHeader.AddNew
    rsHeader!cCompanyID = COID
    rsHeader!cCosting = "Average"
    rsHeader!cType = GetValueFrTable("cValue", "system_option", "cCode = 'ITM_DEF_TYPE'")
    rsHeader!cUnit = GetValueFrTable("cValue", "system_option", "cCode = 'ITM_DEF_UOM'")
    rsHeader!cWH = GetValueFrTable("cValue", "system_option", "cCode = 'ITM_DEF_WH'")
    
    rsHeader!lBatch = False
    
    Set FrmName = Me
    FormLocking False
    ClrRequired &HC0&
    cmdHistory.Enabled = False
    SSTab1.ActiveTab = 0
    SSTab2.ActiveTab = 0
    txtItemNo.SetFocus

End Sub

'Undo all changes to the recordset
Public Sub TBUndoAll()
On Error GoTo ErrorHandler

    Mode = Normal
    
    If rsHeader.Status = adRecNew Then TBUndoCurrent
    
    rsHeader.CancelBatch adAffectAll
    rsWH.CancelBatch adAffectAll
    rsUnit.CancelBatch adAffectAll
    rsC.CancelBatch adAffectAll
    rsSupp.CancelBatch adAffectAll
    rsCustCode.CancelBatch adAffectAll
    TBClearImage
        
    UnbindControls
    If rsHeader.RecordCount <> 0 Then rsHeader.Bookmark = vBM
    
    Set FrmName = Me
    FormLocking True
    
    cmdHistory.Enabled = True
    dtbFrom.Enabled = True
    dtbTo.Enabled = True
    
    If rsHeader.RecordCount <> 0 Then
        BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, lACNew, lACEdit, lACDelete, , , , , , , True, True, , True
    Else
        RSZero
        Mode = Find
    End If
    
    sbRS.Panels(2) = ""
    
    SetDataSource
    SetDataField

ErrorHandler:
'MsgBox err.Description
'MsgBox err.Number
    If err.Number = -2147217885 Then
        Resume Next
    ElseIf err.Number = -2147217842 Then 'Operation was cancelled. (Error returned by ITGDateBox)
        TBUndoAll
    End If
'MsgBox err.Number
End Sub

'Undo changes on the current record
Public Sub TBUndoCurrent()
On Error GoTo ErrorHandler

    GetChild
    If rsHeader.Status = adRecNew Then
        rsWH.CancelBatch adAffectAll
        rsUnit.CancelBatch adAffectAll
        rsC.CancelBatch adAffectAll
        rsSupp.CancelBatch adAffectAll
        rsCustCode.CancelBatch adAffectAll
        rsHeader.CancelUpdate
    Else
        rsHeader.CancelBatch adAffectCurrent
        rsWH.CancelBatch adAffectAll
        rsUnit.CancelBatch adAffectAll
        rsC.CancelBatch adAffectAll
        rsSupp.CancelBatch adAffectAll
        rsCustCode.CancelBatch adAffectAll
    End If
   
    If rsHeader.RecordCount = 0 Then RSZero

ErrorHandler:
    If err.Number = -2147217885 Then
        Resume Next
    ElseIf err.Number = -2147217842 Then 'Operation was cancelled. (Error returned by ITGDateBox)
        TBUndoCurrent
    End If

End Sub

'Save all changes
Public Sub TBSave()
Dim OKUpdate As Boolean
On Error GoTo ErrHandler

    'Audit Trail
    lBoolean = False
    If rsHeader.Status = adRecNew Then lBoolean = True
    
    If Not MandatoryOK Then Exit Sub
    
    txtPrimaryUnit = IIf(txtPrimaryUnit = "", txtUnit, txtPrimaryUnit)
    If rsHeader!cType = "Trade" Then
      ' DefaultWarehouse
    End If
    
   If ValidateUnitBarcode = True Then Exit Sub
    
    OKUpdate = False
    cn.BeginTrans
    connHeader.BeginTrans
    connC.BeginTrans
    connSupp.BeginTrans
    connCustCode.BeginTrans
    connImage.BeginTrans
    
    If rsHeader!cType = "Trade" Then
        connWH.BeginTrans
        connUnit.BeginTrans
    End If
    
    rsHeader.UpdateBatch adAffectAll
    rsC.UpdateBatch adAffectAll
    rsSupp.UpdateBatch adAffectAll
    rsCustCode.UpdateBatch adAffectAll
    rsImage.UpdateBatch adAffectAll
    
    If rsHeader!cType = "Trade" Then
        rsWH.UpdateBatch adAffectAll
        rsUnit.UpdateBatch adAffectAll
    End If
    
    cn.CommitTrans
    connHeader.CommitTrans
    connC.CommitTrans
    connSupp.CommitTrans
    connCustCode.CommitTrans
    connImage.CommitTrans
    
    If rsHeader!cType = "Trade" Then
        connWH.CommitTrans
        connUnit.CommitTrans
    End If
    
    OKUpdate = True
    
    Set FrmName = Me
    FormLocking True
    cmdHistory.Enabled = True
    dtbFrom.Enabled = True
    dtbTo.Enabled = True
    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, lACNew, lACEdit, lACDelete, , , , , , , True, True, , True
    Mode = Normal
    
    MsgBox "Record/s successfully saved.", vbInformation, msgTtl
     SetDataSource
     
    If lBoolean = False Then ' Edit
        cn.Execute "UPDATE ITEM SET dUpdated = GETDATE () WHERE cItemNo = '" & Trim(txtItemNo) & "' AND cCompanyID = '" & COID & "'"
    Else ' Insert
        cn.Execute "UPDATE ITEM SET dUpdated = GETDATE () WHERE cItemNo = '" & Trim(txtItemNo) & "' AND cCompanyID = '" & COID & "'"
    End If
    
    'Audit trail
    UpdateLogFile "Product", Trim(txtItemNo), IIf(lBoolean, "Inserted", "Updated")
    
    lblHeader = rsHeader!cItemNo & " - " & rsHeader!cDesc & ""
    lblDetails = GetValueFrTable("cDescription", "CLASSIFICATION", "cClassCode = '" & Trim(rsHeader!cPDCode) & "' AND cType = 'PD'") & ", " & _
            "Balance: " & Format(rsHeader!nBalance, "#,##0.#0") & " " & rsHeader!cUnit & ""
    sbRS.Panels(2) = ""

ErrHandler:
'MsgBox err.Description
'MsgBox err.Number
    If err.Number = -2147217885 Then
        Resume Next
    ElseIf err.Number = 545 Then
        Exit Sub
    ElseIf err.Number = -2147217864 Then
        OKUpdate = True
        cn.RollbackTrans
        connHeader.RollbackTrans
        connWH.RollbackTrans
        connC.RollbackTrans
        connUnit.RollbackTrans
        connSupp.RollbackTrans
        connCustCode.RollbackTrans
        connImage.RollbackTrans
        MsgBox "Record cannot be updated. Some values may have been changed by other user/s since last read." & vbCr & _
                "Records will be automatically refreshed. All changes made to the record will be gone upon refresh.", vbInformation, msgTtl
        vBookMark = rsHeader.Bookmark
        UnbindControls
        rsHeader.Requery
        rsWH.Requery
        rsUnit.Requery
        rsC.Requery
        rsSupp.Requery
        rsCustCode.Requery
        BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, lACNew, lACEdit, lACDelete, , , , , , , True, True, , True
        Mode = Normal
        If rsHeader.RecordCount <> 0 Then
            Set FrmName = Me
            FormLocking True
            cmdHistory.Enabled = True
            dtbFrom.Enabled = True
            dtbTo.Enabled = True
            SetDataField
            SetDataSource
            rsHeader.Bookmark = vBookMark
        Else
            RSZero
        End If
    End If

    If Not OKUpdate Then
        MsgBox "Transaction update failed.", vbInformation, msgTtl
        MsgBox err.Description
        cn.RollbackTrans
        connHeader.RollbackTrans
        connWH.RollbackTrans
        connC.RollbackTrans
        connUnit.RollbackTrans
        connSupp.RollbackTrans
        connCustCode.RollbackTrans
        connImage.RollbackTrans
        ErrorLog err.Number, err.Description, Me.Name 'Error log
    End If
    
End Sub

'Sets the form & recorset to add/edit mode
Public Sub TBEdit()
    Mode = AddNewEdit
    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , , , True, True, , , True, True, , , , True
    Set FrmName = Me
    FormLocking False
    ClrRequired &HC0&
    cmdHistory.Enabled = False
    txtItemNo.Locked = True
    SSTab2.ActiveTab = 0
    SSTab1.ActiveTab = 0
    txtDesc.SetFocus
    vBM = rsHeader.Bookmark
End Sub

'Delete record
Public Sub TBDelete()
On Error GoTo ErrorHandler
    
    sID = Trim(txtItemNo)
    
    If rsHeader.RecordCount = 0 Then Exit Sub
    
    Dim rs As New ADODB.Recordset
    Set rs = Nothing
    
    If GetValueFrTable("lBit", "SYSTEM_OPTION", "cCode = 'ITM_MAN_BARCODE'") = True Then
        sSQL = "SELECT A.cItemNo FROM VItemWPartNo A, Item B WHERE A.cCompanyID = B.cCompanyID and A.cBarcodeID = '" & Trim(txtPartNo) & "' "
    Else: sSQL = "SELECT A.cItemNo FROM VItem A, Item B WHERE A.cCompanyID = B.cCompanyID and A.cItemNo = '" & Trim(txtItemNo) & "' "
    End If
    
    
    rs.Open sSQL, cn, adOpenStatic
    
    If rs.RecordCount <> 0 Then
        MsgBox "Unable to delete. Referenced by other transactions.", vbExclamation, "ALERT"
        rs.Close
        GoTo ErrorHandler
    End If
    
    If MsgBox("Are you sure you want to delete this record?", vbQuestion + vbYesNo, msgTtl) = vbNo Then Exit Sub
    
    GetChild
    If rsWH.RecordCount <> 0 Then
        rsWH.MoveFirst
        Do Until rsWH.RecordCount = 0
            rsWH.Delete adAffectCurrent
            If rsWH.RecordCount <> 0 Then rsWH.MoveFirst
        Loop
    End If
    If rsUnit.RecordCount <> 0 Then
        rsUnit.MoveFirst
        Do Until rsUnit.RecordCount = 0
            rsUnit.Delete adAffectCurrent
            If rsUnit.RecordCount <> 0 Then rsUnit.MoveFirst
        Loop
    End If
    If rsC.RecordCount <> 0 Then
        rsC.MoveFirst
        Do Until rsC.RecordCount = 0
            rsC.Delete adAffectCurrent
            If rsC.RecordCount <> 0 Then rsC.MoveFirst
        Loop
    End If
    
    If rsSupp.RecordCount <> 0 Then
        rsSupp.MoveFirst
        Do Until rsSupp.RecordCount = 0
            rsSupp.Delete adAffectCurrent
            If rsSupp.RecordCount <> 0 Then rsSupp.MoveFirst
        Loop
    End If
    
    If rsCustCode.RecordCount <> 0 Then
        rsCustCode.MoveFirst
        Do Until rsCustCode.RecordCount = 0
            rsCustCode.Delete adAffectCurrent
            If rsCustCode.RecordCount <> 0 Then rsCustCode.MoveFirst
        Loop
    End If
    
    If rsImage.RecordCount <> 0 Then
        rsCustCode.MoveFirst
        Do Until rsImage.RecordCount = 0
            rsImage.Delete adAffectCurrent
            If rsImage.RecordCount <> 0 Then rsImage.MoveFirst
        Loop
    End If
    
    'Audit trail
    UpdateLogFile "Product", Trim(txtItemNo), "Deleted"

    rsHeader.Delete adAffectCurrent
    rsWH.UpdateBatch adAffectAll
    rsUnit.UpdateBatch adAffectAll
    rsC.UpdateBatch adAffectAll
    rsSupp.UpdateBatch adAffectAll
    rsCustCode.UpdateBatch adAffectAll
    rsImage.UpdateBatch adAffectAll
    rsHeader.UpdateBatch adAffectAll
    
    TBPrevRec

    Mode = Normal
    
    If rsHeader.RecordCount = 0 Then
        RSZero
    Else
        vBookMark = rsHeader.Bookmark
        UnbindControls
        SetDataSource
        SetDataField
        rsHeader.Bookmark = vBookMark
    End If

ErrorHandler:
    If err.Number = -2147217885 Then
        Resume Next
    ElseIf err.Number = -2147217864 Then
        cn.Execute "DELETE ITEM_UNIT WHERE cItemNo = '" & sID & "' AND cCompanyID = '" & COID & "'"
        cn.Execute "DELETE ITEM_W WHERE cItemNo = '" & sID & "' AND cCompanyID = '" & COID & "'"
        cn.Execute "DELETE ITEM_C WHERE cItemNo = '" & sID & "' AND cCompanyID = '" & COID & "'"
        cn.Execute "DELETE ITEM_SUPPLIER WHERE cItemNo = '" & sID & "' AND cCompanyID = '" & COID & "'"
        cn.Execute "DELETE ITEM_CUSTCODE WHERE cItemNo = '" & sID & "' AND cCompanyID = '" & COID & "'"
        cn.Execute "DELETE ITEM_IMAGE WHERE cItemNo = '" & sID & "' AND cCompanyID = '" & COID & "'"
        cn.Execute "DELETE ITEM WHERE cItemNo = '" & sID & "' AND cCompanyID = '" & COID & "'"
        Resume Next
    End If

End Sub

'Search using the frmITGSearch
Public Sub TBFind()
    Mode = Find
    txtItemNo.Locked = True
    frmITGSearch.Show
End Sub

'Search using the recordset primary key
Public Sub TBFindPrimary()

Dim sTemp As String
    If Mode = Find Then
        FormWaitShow App.Path & "\Transmit.avi", "Loading data . . ."
        
        OpenNewConnection connHeader
        OpenNewConnection connWH
        OpenNewConnection connC
        OpenNewConnection connUnit
        OpenNewConnection connSupp
        OpenNewConnection connCustCode
        OpenNewConnection connImage
        
        Set rsHeader = Nothing
        Set rsWH = Nothing
        Set rsC = Nothing
        Set rsUnit = Nothing
        Set rsSupp = Nothing
        Set rsCustCode = Nothing
        Set rsImage = Nothing
        
        Set rsHeader = New ADODB.Recordset
        Set rsWH = New ADODB.Recordset
        Set rsC = New ADODB.Recordset
        Set rsUnit = New ADODB.Recordset
        Set rsSupp = New ADODB.Recordset
        Set rsCustCode = New ADODB.Recordset
        Set rsImage = New ADODB.Recordset
        
        sTemp = IIf(Trim$(GetSearchString) = "", IIf(sDivision = "ALL" Or sDivision = "COMMON" Or sDivision = "", "", " WHERE cPCCode ='" & sDivision & "'"), " Where " & Trim$(GetSearchString) + IIf(sDivision = "ALL" Or sDivision = "COMMON" Or sDivision = "", "", " AND cPCCode ='" & sDivision & "'"))
        If sTemp = "ERROR" Then
            MsgBox "Only Allows A - Z, 0 - 9, '.', ',' and %(wildcard)", vbExclamation, ""
            BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, lACNew, , , , , , , , , True, , , True
            txtItemNo.Locked = False
            txtItemNo.SetFocus
            Exit Sub
        End If
        
        OpenRecordsetWithCN rsHeader, "*", "ITEM", connHeader, IIf(sTemp = "", "", sTemp)
        OpenRecordsetWithCN rsWH, "*", "ITEM_W", connWH, IIf(sTemp = "", "", " WHERE cItemNo IN (SELECT cItemNo FROM ITEM  " & sTemp & ")")
        OpenRecordsetWithCN rsC, "*", "ITEM_C", connC, IIf(sTemp = "", "", " WHERE cItemNo IN (SELECT cItemNo FROM ITEM  " & sTemp & ")")
        OpenRecordsetWithCN rsUnit, "*", "ITEM_UNIT", connUnit, IIf(sTemp = "", "", " WHERE cItemNo IN (SELECT cItemNo FROM ITEM  " & sTemp & ")")
        OpenRecordsetWithCN rsSupp, "*", "ITEM_SUPPLIER", connSupp, IIf(sTemp = "", "", " WHERE cItemNo IN (SELECT cItemNo FROM ITEM  " & sTemp & ") ")
        OpenRecordsetWithCN rsCustCode, "*", "ITEM_CUSTCODE", connCustCode, IIf(sTemp = "", "", " WHERE cItemNo IN (SELECT cItemNo FROM ITEM  " & sTemp & ")")
        OpenRecordsetWithCN rsImage, "*", "ITEM_IMAGE", connImage, IIf(sTemp = "", "", " WHERE cItemNo IN (SELECT cItemNo FROM ITEM  " & sTemp & ")")
        
        Set FrmName = Me
        FormLocking True
    
        If rsHeader.RecordCount = 0 Then
            FormWaitHide
            MsgBox "No matching record/s found.", vbInformation, "ComUnion Search"
            RSZero
            FormSearch True
            SearchObj True
            Mode = Find
            Exit Sub
        End If
        SetDataSource
        SetDataField
        
        txtItemNo.BackColor = &HE0FFFF
        Mode = Normal
        BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, lACNew, lACEdit, lACDelete, , , , , , , True, True, , True
        FormWaitHide
    Else
        RSZero
        FormSearch True
        SearchObj True
        Mode = Find
    End If
End Sub

'Reload menu buttons (do not delete this sub)
Public Sub TBBitReload()
    BitVisible ITGLedgerMain.tbrMain, True
    ITGLedgerMain.tbrMain.Buttons("btnFind").ButtonMenus("btnFindP").Enabled = True
    BitReload ITGLedgerMain, Me, ITGLedgerMain.tbrMain, sBit
    Set FrmName = Me
    dtgName = dtgUnit.Name
End Sub

'Close active window
Public Sub TBCloseWindow()
    Unload Me
End Sub

'Move first
Public Sub TBFirstRec()
    If rsHeader.State <> adStateOpen Then Exit Sub
    MoveFirst rsHeader

End Sub

'Move previous
Public Sub TBPrevRec()
    If rsHeader.State <> adStateOpen Then Exit Sub
    MovePrevious rsHeader
End Sub

'Move next
Public Sub TBNextRec()
    If rsHeader.State <> adStateOpen Then Exit Sub
    MoveNext rsHeader
End Sub

'Move last
Public Sub TBLastRec()
    If rsHeader.State <> adStateOpen Then Exit Sub
    MoveLast rsHeader
End Sub

'Add new line to the detail recordset
Public Sub TBNewLine()
    
    If rsHeader!cItemNo = "" Then Exit Sub
    
    If dtgName = "dtgC" Then
        rsC.AddNew
        rsC!cCompanyID = COID
        rsC!cItemNo = Trim(txtItemNo)
        GetChild
        rsC.MoveLast
        dtgC.Col = 0
        dtgC.SetFocus
    ElseIf dtgName = "dtgUnit" Then
        rsUnit.AddNew
        rsUnit!cCompanyID = COID
        rsUnit!cItemNo = Trim(txtItemNo)
        GetChild
        rsUnit.MoveLast
        dtgUnit.Col = 0
        dtgUnit.SetFocus
    ElseIf dtgName = "dtgSupp" Then
        rsSupp.AddNew
        rsSupp!cCompanyID = COID
        rsSupp!cItemNo = Trim(txtItemNo)
        GetChild
        rsSupp.MoveLast
        dtgSupp.Col = 0
        dtgSupp.SetFocus
    ElseIf dtgName = "dtgCustCode" Then
        rsCustCode.AddNew
        rsCustCode!cCompanyID = COID
        rsCustCode!cItemNo = Trim(txtItemNo)
        rsCustCode!cBarcodeID = Trim(txtPartNo)
        GetChild
        rsCustCode.MoveLast
        dtgCustCode.Col = 0
        dtgCustCode.SetFocus
    End If

End Sub

'Delete line in the detail recordset
Public Sub TBDeleteLine()
On Error GoTo ErrorHandler

    If dtgName = "dtgC" Then
        If rsC.RecordCount = 0 Then Exit Sub
        vBookMark = dtgC.Bookmark
        GetChild
        dtgC.Bookmark = vBookMark
        rsC.Delete adAffectCurrent
    ElseIf dtgName = "dtgUnit" Then
        If rsUnit.RecordCount = 0 Then Exit Sub
        vBookMark = dtgUnit.Bookmark
        GetChild
        dtgUnit.Bookmark = vBookMark
        rsUnit.Delete adAffectCurrent
    ElseIf dtgName = "dtgSupp" Then
        If rsSupp.RecordCount = 0 Then Exit Sub
        vBookMark = dtgSupp.Bookmark
        GetChild
        dtgSupp.Bookmark = vBookMark
        rsSupp.Delete adAffectCurrent
    ElseIf dtgName = "dtgCustCode" Then
        If rsCustCode.RecordCount = 0 Then Exit Sub
        vBookMark = dtgCustCode.Bookmark
        GetChild
        dtgCustCode.Bookmark = vBookMark
        rsCustCode.Delete adAffectCurrent
    End If
    GetChild

ErrorHandler:
    If err.Number = -2147217885 Then
        Resume Next
    End If

End Sub

'Undo all
Public Sub TBUndoLineAll()
On Error GoTo ErrorHandler

ErrorHandler:
    If err.Number = -2147217885 Then
        Resume Next
    End If
End Sub

'Undo current line
Public Sub TBUndoLineCurrent()
    MsgBox "Unavailable on " & Me.Name
End Sub

'Post current record
Public Sub TBPostRecord()
    MsgBox "Unavailable on " & Me.Name
End Sub

'Cancel current record
Public Sub TBCancelRecord()
    MsgBox "Unavailable on " & Me.Name
End Sub

'Print
Public Sub TBPrintRecord()
    MsgBox "Unavailable on " & Me.Name
End Sub

'Sets the data source of the controls
Sub SetDataSource()
On Error Resume Next
    Set FrmName = Me
    BindControls rsHeader
    Set dtgUnit.DataSource = rsUnit
    Set dtgC.DataSource = rsC
    Set dtgSupp.DataSource = rsSupp
    Set dtgCustCode.DataSource = rsCustCode
    'Set iPhoto.DataSource = rsImage
    Set dtgList.DataSource = rsHeader
    
    
End Sub
    
'Sets the data field for every bounded controls
Sub SetDataField()
    With rsHeader
        txtItemNo.DataField = !cItemNo
        txtPartNo.DataField = !cPartNo
        txtDesc.DataField = !cDesc
        txtPurDesc.DataField = !cPurDesc
        txtType.DataField = !cType
        txtPCCode.DataField = !cPCCode
        txtUnit.DataField = !cUnit
        txtPrimaryUnit.DataField = !cPrimaryUnit
        txtWH.DataField = !cWH
        txtPD.DataField = !cPDCode
        txtCosting.DataField = !cCosting
        txtSRP.DataField = !nSRPrice
        txtWSP.DataField = !nWSPrice
        txtStdCost.DataField = !nStdCost
        txtAveCost.DataField = !nAveCost
        txtMinimum.DataField = !nMinimum
        txtMaximum.DataField = !nMaximum
        txtReorder.DataField = !nReorderQty
        txtReorderPt.DataField = !nReorderPt
        txtLongDesc.DataField = "cLongDesc"
        chkBatch.DataField = !lBatch
        txtGroup(1).DataField = !cGroup1
        txtGroup(2).DataField = !cGroup2
        txtGroup(3).DataField = !cGroup3
        txtGroup(4).DataField = !cGroup4
        txtGroup(5).DataField = !cGroup5
        txtGroup(6).DataField = !cGroup6
        txtGroup(7).DataField = !cGroup7
        txtGroup(8).DataField = !cGroup8
        txtGroup(9).DataField = !cGroup9
        txtGroup(10).DataField = !cGroup10
        txtCBM.DataField = !nCBM
        txtGrossWeight.DataField = !nGrossWeight
        txtNetWeight.DataField = !nNetWeight
        txtMasterBox.DataField = !nMasterBox
        txtArea.DataField = !nArea
        txtLength.DataField = !nLength
        txtWidth.DataField = !nWidth
        txtHeight.DataField = !nHeight
        txtMP.DataField = !nMPrice
    End With

'    iPhoto.DataMember = iPhoto2
'    iPhoto.DataField = rsImage!iPhoto2
End Sub

Private Sub iPhoto_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Mode <> AddNewEdit Then Exit Sub
    If Button = 2 Then PopupMenu ITGLedgerMain.mnuImage
End Sub

Private Sub iPhoto_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Mode = AddNewEdit Then
        iPhoto.ToolTipText = "Right click to add/remove image"
    Else
        iPhoto.ToolTipText = ""
    End If
End Sub
Public Sub TBClearImage()
    iPhoto.Picture = Nothing
    rsHeader!iPhoto = Null
End Sub

'--------jomar code for yalan
'Public Sub TBClearImage()
'    iPhoto.Picture = Nothing
''    rsHeader!iPhoto = Null
'
'    If rsImage.RecordCount = 0 Then Exit Sub
'        vBookMark = rsImage.Bookmark
'        GetChild
'        rsImage.Bookmark = vBookMark
'        rsImage.Delete adAffectCurrent
'        GetChild
'End Sub
'-----------------------------------------



Private Sub rsHeader_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
On Error GoTo ErrorHandler

    If Not (rsHeader.EOF) Or Not (rsHeader.BOF) Then
        lblHeader = rsHeader!cItemNo & " - " & rsHeader!cDesc & ""
        lblDetails = GetValueFrTable("cDescription", "CLASSIFICATION", "cClassCode = '" & Trim(rsHeader!cPDCode) & "' AND cType = 'PD'") & ", " & _
                    "Balance: " & Format(rsHeader!nBalance, "#,##0.#0") & " " & rsHeader!cUnit & ""
        sbRS.Panels(1) = "Record: " & IIf((rsHeader.AbsolutePosition = -2), "0", rsHeader.AbsolutePosition) & "/" & rsHeader.RecordCount

        If rsHeader.Status <> adRecNew Then
            txtItemNo.Locked = True
        Else
            txtItemNo.Locked = False
        End If

        If Mode = AddNewEdit Then
            Select Case rsHeader.Status
                Case adRecNew
                    sbRS.Panels(2) = "New"
                Case adRecModified
                    sbRS.Panels(2) = "Modified"
                Case Else
                    sbRS.Panels(2) = ""
            End Select
        Else
            sbRS.Panels(2) = ""
        End If

        GetChild
        ShowProductBalance
        
    Else
        lblHeader = "Product ID - Description"
        lblDetails = "Product Division, Balance"
        sbRS.Panels(1) = "Record: 0/0"
        sbRS.Panels(2) = ""
        txtItemNo.Locked = False
    End If

    If Mode = AddNewEdit Then
        dtgUnit.Refresh
        dtgC.Refresh
        dtgSupp.Refresh
    End If

    Set dtgHistory.DataSource = Nothing
    dtgHistory.Refresh
    dtbFrom.Text = "__/__/____"
    dtbTo.Text = "__/__/____"
    
    lvwList.ListItems.Clear

ErrorHandler:
    'Err.Number -2147217885
    'Description - Row handle referred to a deleted row or a row marked for deletion.
    If err.Number = -2147217885 Then
        Resume Next
    End If
    
End Sub

Private Sub Timer1_Timer()
    If Mode = AddNewEdit Then
        SSTab2.TabEnabled(1) = True
        cmdWHBalance.Enabled = False
    Else
        SSTab2.TabEnabled(1) = True
        cmdWHBalance.Enabled = True
    End If
End Sub

Private Function GetSearchString() As String
On Error GoTo ErrorHandler
Dim sWhere As String

    GetSearchString = True

    If Trim$(txtItemNo.Text) <> "" Then sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cItemNo LIKE '" & Trim$(txtItemNo.Text) & "%'"
    If Trim$(txtDesc.Text) <> "" Then sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cDesc LIKE '" & Trim$(txtDesc.Text) & "%'"
    If Trim$(txtPurDesc.Text) <> "" Then sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cPurDesc LIKE '" & Trim$(txtPurDesc.Text) & "%'"
    If Trim$(txtPCCode.Text) <> "" Then sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cPDCode LIKE '" & Trim$(txtPCCode.Text) & "%'"
    If Trim$(txtUnit.Text) <> "" Then sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cUnit LIKE '" & Trim$(txtUnit.Text) & "%'"
    If Trim$(txtWH.Text) <> "" Then sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cWH LIKE '" & Trim$(txtWH.Text) & "%'"
    If Trim(txtType.Text) <> "" Then sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cType LIKE '" & Trim$(txtType.Text) & "%'"
    If Trim(Me.txtGroup(1).Text) <> "" Then sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cGroup1 LIKE '" & Trim$(txtGroup(1).Text) & "%'"
    If Trim(Me.txtGroup(2).Text) <> "" Then sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cGroup2 LIKE '" & Trim$(txtGroup(2).Text) & "%'"
    If Trim(Me.txtGroup(3).Text) <> "" Then sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cGroup3 LIKE '" & Trim$(txtGroup(3).Text) & "%'"
    If Trim(Me.txtGroup(4).Text) <> "" Then sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cGroup4 LIKE '" & Trim$(txtGroup(4).Text) & "%'"
    If Trim(Me.txtGroup(5).Text) <> "" Then sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cGroup5 LIKE '" & Trim$(txtGroup(5).Text) & "%'"
    If Trim(Me.txtGroup(6).Text) <> "" Then sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cGroup6 LIKE '" & Trim$(txtGroup(6).Text) & "%'"
    If Trim(Me.txtGroup(7).Text) <> "" Then sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cGroup7 LIKE '" & Trim$(txtGroup(7).Text) & "%'"
    If Trim(Me.txtGroup(8).Text) <> "" Then sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cGroup8 LIKE '" & Trim$(txtGroup(8).Text) & "%'"
    If Trim(Me.txtGroup(9).Text) <> "" Then sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cGroup9 LIKE '" & Trim$(txtGroup(9).Text) & "%'"
    If Trim(Me.txtGroup(10).Text) <> "" Then sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cGroup10 LIKE '" & Trim$(txtGroup(10).Text) & "%'"
    
    GetSearchString = Trim$(sWhere)

    Exit Function
ErrorHandler:
    GetSearchString = "ERROR"
End Function

Private Sub txtGroup_Change(Index As Integer)
    txtGroupName(Index) = GetValueFrTable("cDescription", "GROUPINGS", "cID = '" & Trim(txtGroup(Index)) & "' AND cGroupNo = '" & Trim(Index) & "'")
    If Mode <> AddNewEdit Then Exit Sub
    If Trim(txtGroup(Index)) = "" And Trim(txtGroup(Index)) <> "" Then cmdPickGroup_Click (Index)

End Sub

Private Sub txtGroup_LostFocus(Index As Integer)
    If Mode <> AddNewEdit Then Exit Sub
    If Trim(txtGroup(Index)) = "" And Trim(txtGroup(Index)) <> "" Then cmdPickGroup_Click (Index)
End Sub

'--Code for lost focus --Note: by gino.
'--Inalis ko to dahil masyado madami lumalabas na message box. At my checking n po tau sa mandatory
'Private Sub txtItemNo_LostFocus()
'    'Does Code Already exists
'If GetValueFrTable("lBit", "SYSTEM_OPTION", "cCode = 'ITM_VAL_DUPLICATE'") = False Then
'    If Mode = AddNewEdit Then
'        If Trim(txtItemNo) = "" Then
'            MsgBox "Empty primary input.", vbInformation, msgttl
'            If FrmName.Name <> Me.Name Then PreviousTab frmComUnionMenuTab
'            txtItemNo.SetFocus
'        Else
'            If rsHeader.Status <> adRecNew Then Exit Sub
'            txtItemNo = Trim(txtItemNo)
'            If IDExisting(rsHeader, "cItemNo", "ITEM", Trim(rsHeader!cItemNo)) Then
'                MsgBox "Product ID already exists.", vbInformation, msgttl
'                If FrmName.Name <> Me.Name Then PreviousTab frmComUnionMenuTab
'                txtItemNo.SetFocus
'            Else
'                txtPartNo = Trim(txtItemNo)
'            End If
'        End If
'    End If
'End If
'End Sub
'----------------------------------------------------------------------

Private Sub txtCosting_Change()
    If (Trim(txtCosting) <> "") Or (txtCosting <> vbNullString) Then
        cboCosting = Trim(txtCosting)
    Else: cboCosting.ListIndex = -1
    End If
End Sub

Private Sub txtUnit_Change()
    If (Trim(txtUnit) <> "") Or (txtUnit <> vbNullString) Then
        cboUnit = Trim(txtUnit)
    Else: cboUnit.ListIndex = -1
    End If
End Sub

Private Sub txtPrimaryUnit_Change()
    If (Trim(txtPrimaryUnit) <> "") Or (txtPrimaryUnit <> vbNullString) Then
        cboPrimaryUnit = Trim(txtPrimaryUnit)
    Else: cboPrimaryUnit.ListIndex = -1
    End If
End Sub

Private Sub txtLongDesc_KeyPress(KeyAscii As Integer)
    If Mode <> AddNewEdit Then Exit Sub
    If KeyAscii = 39 Then KeyAscii = 0 'Apostrophe {'}
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Private Sub txtPCCode_LostFocus()
    If Mode <> AddNewEdit Then Exit Sub
    If Trim(txtPCDesc) = "" And Trim(txtPCCode) <> "" Then cmdPickPC_Click
End Sub

Private Sub txtType_Change()
    If Trim(txtType) <> "" Or txtType <> vbNullString Then
        cboType = Trim(txtType)
    Else: cboType.ListIndex = -1
    End If
End Sub

Private Sub txtPCCode_Change()
    txtPCDesc = ""
    txtPCDesc = GetValueFrTable("cDescription", "Profitcenter", "cPCCode = '" & Trim(txtPCCode) & "'")
End Sub

'Check if all mandatory fields are complete
Function MandatoryOK() As Boolean
    
    MandatoryOK = True
    
    If Trim(txtItemNo) = "" Then
        MandatoryOK = False
        MsgBox "Field 'Product ID' is mandatory. Null value is not allowed.", vbInformation, msgTtl
        txtItemNo.SetFocus
        Exit Function
    End If
    
    If GetValueFrTable("lBit", "SYSTEM_OPTION", "cCode = 'ITM_VAL_DUPLICATE'") = False Then
        If rsHeader.Status = adRecNew Then
            If IDExisting(rsHeader, "cItemNo", "ITEM", Trim(rsHeader!cItemNo)) Then
                MandatoryOK = False
                MsgBox "Product ID already exists.", vbInformation, msgTtl
                txtItemNo.SetFocus
                Exit Function
            End If
        End If
    End If
    
    If Trim(txtDesc) = "" Then
        MandatoryOK = False
        MsgBox "Field 'Product Description' is mandatory. Null value is not allowed", vbInformation, msgTtl
        txtDesc.SetFocus
        Exit Function
    ElseIf Trim(txtUnit) = "" Then
        If cboType <> "Labor" Then
            MandatoryOK = False
            MsgBox "Field 'Unit' is mandatory. Null value is not allowed", vbInformation, msgTtl
            txtUnit.SetFocus
            Exit Function
        End If
    ElseIf Trim(txtWH) = "" Then
        If cboType <> "Labor" Then
            MandatoryOK = False
            MsgBox "Field 'Warehouse' is mandatory. Null value is not allowed", vbInformation, msgTtl
            txtWH.SetFocus
            Exit Function
        End If
'    ElseIf Trim(txtPD) = "" Then
'        MandatoryOK = False
'        MsgBox "Field 'Product Division' is mandatory. Null value is not allowed", vbInformation, msgTtl
'        txtPD.SetFocus
'        Exit Function
'    ElseIf Trim(txtCosting) = "" Then
'        MandatoryOK = False
'        MsgBox "Field 'Costing' is mandatory. Null value is not allowed", vbInformation, msgTtl
'        txtCosting.SetFocus
'        Exit Function
    ElseIf Trim(txtType) = "" Then
        MandatoryOK = False
        MsgBox "Field 'Type' is mandatory. Null value is not allowed", vbInformation, msgTtl
        cboType.SetFocus
        Exit Function
    ElseIf CDbl(txtSRP) = 0 Then
        MandatoryOK = False
        MsgBox "Field 'SRP' is mandatory. Null or zero value is not allowed", vbInformation, msgTtl
        txtSRP.SetFocus
        Exit Function
    End If
    
    GetChild
    
    If rsUnit.RecordCount <> 0 Then rsUnit.MoveFirst
    Do Until rsUnit.EOF
        If rsUnit.Status = (adRecNew) Or rsUnit.Status = (adRecModified) Then
            If IsNull(rsUnit!cItemNo) Then
                rsUnit.Delete
            ElseIf Trim(rsUnit!cItemNo) = "" Then
                rsUnit.Delete
            Else
                rsUnit.MoveNext
            End If
        Else
            rsUnit.MoveNext
        End If
    Loop
    
    If rsC.RecordCount <> 0 Then rsC.MoveFirst
    Do Until rsC.EOF
        If rsC.Status = (adRecNew) Or rsC.Status = (adRecModified) Then
            If IsNull(rsC!cCompItemNo) Then
                rsC.Delete
            ElseIf Trim(rsC!cCompItemNo) = "" Then
                rsC.Delete
            Else
                rsC.MoveNext
            End If
        Else
            rsC.MoveNext
        End If
    Loop
    
    If rsSupp.RecordCount <> 0 Then rsSupp.MoveFirst
    Do Until rsSupp.EOF
        If rsSupp.Status = (adRecNew) Or rsSupp.Status = (adRecModified) Then
            If IsNull(rsSupp!cCode) Then
                rsSupp.Delete
            ElseIf Trim(rsSupp!cCode) = "" Then
                rsSupp.Delete
            Else
                rsSupp.MoveNext
            End If
        Else
            rsSupp.MoveNext
        End If
    Loop
    
    If rsCustCode.RecordCount <> 0 Then rsCustCode.MoveFirst
    Do Until rsCustCode.EOF
        If rsCustCode.Status = (adRecNew) Or rsCustCode.Status = (adRecModified) Then
            If IsNull(rsCustCode!cCode) Then
                rsCustCode.Delete
            ElseIf Trim(rsCustCode!cCode) = "" Then
                rsCustCode.Delete
            Else
                rsCustCode.MoveNext
            End If
        Else
            rsCustCode.MoveNext
        End If
    Loop
    
    If rsImage.RecordCount <> 0 Then rsImage.MoveFirst
    Do Until rsImage.EOF
        If rsImage.Status = (adRecNew) Or rsImage.Status = (adRecModified) Then
            If IsNull(rsImage!iPhoto2) Then
                rsImage.Delete
            ElseIf Trim(rsImage!iPhoto2) = "" Then
                rsImage.Delete
            Else
                rsImage.MoveNext
            End If
        Else
            rsImage.MoveNext
        End If
    Loop
    
    GetChild
    
End Function

'Filter detail recordset to header's primary
Private Sub GetChild()
    rsWH.Filter = "cItemNo = '" & Trim(rsHeader!cItemNo) & "'"
    rsUnit.Filter = "cItemNo = '" & Trim(rsHeader!cItemNo) & "'"
    rsC.Filter = "cItemNo = '" & Trim(rsHeader!cItemNo) & "'"
    rsSupp.Filter = "cItemNo = '" & Trim(rsHeader!cItemNo) & "'"
    rsCustCode.Filter = "cItemNo = '" & Trim(rsHeader!cItemNo) & "'"
    'rsImage.Filter = "cItemNo = '" & Trim(rsHeader!cItemNo) & "' and cPartNo = '" & Trim(rsHeader!cPartNo) & "'"
End Sub

'Sets the form if record number is zero
Private Sub RSZero()
    lblHeader = "Product ID - Description"
    lblDetails = "Product Division, Balance"
    sbRS.Panels(1) = "Record: 0/0"
    sbRS.Panels(2) = ""
    
    Set dtgUnit.DataSource = Nothing
    Set dtgC.DataSource = Nothing
    Set dtgSupp.DataSource = Nothing
    Set dtgCustCode.DataSource = Nothing
    dtgUnit.Refresh
    dtgC.Refresh
    dtgSupp.Refresh
    dtgCustCode.Refresh
    
    Set FrmName = Me
    UnbindControls
    TextClearing
    FormLocking True
    
    Set dtgHistory.DataSource = Nothing
    dtgHistory.Refresh
    dtbFrom.Text = "__/__/____"
    dtbTo.Text = "__/__/____"
    
    If rsHeader.State = adStateOpen Then rsHeader.Close
    If rsWH.State = adStateOpen Then rsWH.Close
    If rsUnit.State = adStateOpen Then rsUnit.Close
    If rsC.State = adStateOpen Then rsC.Close
    If rsSupp.State = adStateOpen Then rsSupp.Close
    If rsCustCode.State = adStateOpen Then rsCustCode.Close
    
    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, lACNew, , , , , , , , , True, , , True
    
    txtItemNo.Locked = False
    txtItemNo.SetFocus
    
    Mode = Find
End Sub

Private Sub txtWH_LostFocus()
    If Mode <> AddNewEdit Then Exit Sub
    If Trim(txtWH) = "" Then Exit Sub
    If GetValueFrTable("cWH", "WHSE", "cWH = '" & Trim(txtWH) & "'") = "" Then cmdPickWH_Click
End Sub

''Dummy recordset for substitute items (ITEM_SUB)
'Private Sub DummyRS(rsFrom As ADODB.Recordset)
'Dim strPD As String
'
'    Set rsDummy = New Recordset
'    Set rs = New Recordset
'
'    With rsDummy.Fields
'        .Append "cItemNo", adBSTR, , adFldIsNullable
'        .Append "cSubItemNo", adBSTR, , adFldIsNullable
'        .Append "cSubItemDesc", adBSTR, , adFldIsNullable
'        .Append "PD", adBSTR, , adFldIsNullable
'        .Append "SRP", adDouble, , adFldIsNullable
'        .Append "WSP", adDouble, , adFldIsNullable
'    End With
'
'    rsDummy.Open
'
'    Set rs = rsFrom.Clone
'
'    Set rs = Nothing
'
'    Set dtgSub.DataSource = Nothing
'    Set dtgSub.DataSource = rsSub
'
'End Sub

'Dummy recordset for component items (ITEM_C)
Private Sub DummyCRS(rsFrom As ADODB.Recordset)
Dim strPD As String
Dim rs As New ADODB.Recordset

    Set rsDummyC = New Recordset

    With rsDummyC.Fields
        .Append "cItemNo", adBSTR, , adFldIsNullable
        .Append "cCompItemNo", adBSTR, , adFldIsNullable
        .Append "cCompItemDesc", adBSTR, , adFldIsNullable
        .Append "nQty", adDouble, , adFldIsNullable
        .Append "PD", adBSTR, , adFldIsNullable
        .Append "SRP", adDouble, , adFldIsNullable
        .Append "WSP", adDouble, , adFldIsNullable
    End With
   
    rsDummyC.Open
    
    Set rs = rsFrom.Clone
    
    Set rs = Nothing
    
    Set dtgC.DataSource = Nothing
    Set dtgC.DataSource = rsC
    
End Sub

'Pass dummy recordset values to the real recordset
Private Sub DummyToReal()
    
    rsUnit.Filter = "cItemNo = '" & Trim(rsHeader!cItemNo) & "'"
    rsC.Filter = "cItemNo = '" & Trim(rsHeader!cItemNo) & "'"
'    rsDummy.Filter = "cItemNo = '" & Trim(rsHeader!cItemNo) & "'"
    rsDummyC.Filter = "cItemNo = '" & Trim(rsHeader!cItemNo) & "'"
    
    If rsUnit.RecordCount <> 0 Then
        rsUnit.MoveFirst
        Do Until rsUnit.RecordCount = 0
            rsUnit.Delete adAffectCurrent
            If rsUnit.RecordCount <> 0 Then rsUnit.MoveFirst
        Loop
    End If
    rsUnit.Filter = "cItemNo = '" & Trim(rsHeader!cItemNo) & "'"
    
'    Do While Not rsDummy.EOF
'        rsSub.AddNew
'        rsSub!cCompanyID = COID
'        rsSub!cItemNo = Trim(rsDummy!cItemNo) & ""
'        rsSub!cSubItemNo = Trim(rsDummy!cSubItemNo) & ""
'        rsSub!cSubItemDesc = Trim(rsDummy!cSubItemDesc) & ""
'        rsDummy.MoveNext
'    Loop

    If rsC.RecordCount <> 0 Then
        rsC.MoveFirst
        Do Until rsC.RecordCount = 0
            rsC.Delete adAffectCurrent
            If rsC.RecordCount <> 0 Then rsC.MoveFirst
        Loop
    End If
    rsC.Filter = "cItemNo = '" & Trim(rsHeader!cItemNo) & "'"
    
    Do While Not rsDummyC.EOF
        rsC.AddNew
        rsC!cCompanyID = COID
        rsC!cItemNo = Trim(rsDummyC!cItemNo) & ""
        rsC!cCompItemNo = Trim(rsDummyC!cCompItemNo) & ""
        rsC!cCompItemDesc = Trim(rsDummyC!cCompItemDesc) & ""
        rsC!nQty = CDbl(rsDummyC!nQty)
        rsDummyC.MoveNext
    Loop

End Sub

'Get item values from item table
Private Sub GetItemValues(oRS As Recordset, dtg As DataGrid, strItemNo As String)
    
    If dtg.Name = "dtgUnit" Then
        'oRS!cDesc = Trim(GetValueFrTable("cDesc", "ITEM", "cItemNo = '" & Trim(strItemNo) & "'")) & ""
    ElseIf dtg.Name = "dtgC" Then
        oRS!cCompItemDesc = Trim(GetValueFrTable("cDesc", "ITEM", "cItemNo = '" & Trim(strItemNo) & "'")) & ""
    End If
    cString = Trim(GetValueFrTable("cPDCode", "ITEM", "cItemNo = '" & Trim(strItemNo) & "'")) & ""
    dtg.Columns(2).Value = Trim(GetValueFrTable("cDescription", "CLASSIFICATION", "cClassCode = '" & Trim(cString) & "' AND cType = 'PD'")) & ""
    
    If dtg.Name = "dtgC" Then
        dtg.Columns(4).Value = Trim(GetValueFrTable("nSRPrice", "ITEM", "cItemNo = '" & Trim(strItemNo) & "'")) & ""
        dtg.Columns(5).Value = Trim(GetValueFrTable("nWSPrice", "ITEM", "cItemNo = '" & Trim(strItemNo) & "'")) & ""
'    ElseIf dtg.Name = "dtgUnit" Then
'        dtg.Columns(3).Value = Trim(GetValueFrTable("nSRPrice", "ITEM", "cItemNo = '" & Trim(strItemNo) & "'")) & ""
'        dtg.Columns(4).Value = Trim(GetValueFrTable("nWSPrice", "ITEM", "cItemNo = '" & Trim(strItemNo) & "'")) & ""
    End If
End Sub

'This sub validates and add new record in rsWH
Private Sub DefaultWarehouse()
    If rsHeader.Status = adRecNew Then
        AddWH
        GetChild
    Else
        If Not IDExisting(rsWH, "cWH", "ITEM_W", rsHeader!cWH, "cItemNo = '" & Trim(rsHeader!cItemNo) & "'") Then
            AddWH
            GetChild
        End If
    End If
End Sub

'Adds new record to rsWH
Private Sub AddWH()
    With rsWH
        .AddNew
        !cCompanyID = COID
        !cItemNo = Trim(rsHeader!cItemNo)
        !cWH = Trim(rsHeader!cWH)
        !nInitial = 0
        !nIncoming = 0
        !nOutgoing = 0
        !nRetSales = 0
        !nRetPur = 0
        !nIssues = 0
        !nBack = 0
        !nDR = 0
        !nBalance = 0
    End With
End Sub

'Set the label of the 10 groups in group tab
Private Sub SetGroupName()
Dim s(1 To 10) As String

    s(1) = LoadOption("ITM_CAT_GRP1", 4)
    s(2) = LoadOption("ITM_CAT_GRP2", 4)
    s(3) = LoadOption("ITM_CAT_GRP3", 4)
    s(4) = LoadOption("ITM_CAT_GRP4", 4)
    s(5) = LoadOption("ITM_CAT_GRP5", 4)
    s(6) = LoadOption("ITM_CAT_GRP6", 4)
    s(7) = LoadOption("ITM_CAT_GRP7", 4)
    s(8) = LoadOption("ITM_CAT_GRP8", 4)
    s(9) = LoadOption("ITM_CAT_GRP9", 4)
    s(10) = LoadOption("ITM_CAT_GRP10", 4)
    
    txtGroup(1).Label = IIf((s(1) = ""), txtGroup(1).Label, s(1))
    txtGroup(2).Label = IIf((s(2) = ""), txtGroup(2).Label, s(2))
    txtGroup(3).Label = IIf((s(3) = ""), txtGroup(3).Label, s(3))
    txtGroup(4).Label = IIf((s(4) = ""), txtGroup(4).Label, s(4))
    txtGroup(5).Label = IIf((s(5) = ""), txtGroup(5).Label, s(5))
    txtGroup(6).Label = IIf((s(6) = ""), txtGroup(6).Label, s(6))
    txtGroup(7).Label = IIf((s(7) = ""), txtGroup(7).Label, s(7))
    txtGroup(8).Label = IIf((s(8) = ""), txtGroup(8).Label, s(8))
    txtGroup(9).Label = IIf((s(9) = ""), txtGroup(9).Label, s(9))
    txtGroup(10).Label = IIf((s(10) = ""), txtGroup(10).Label, s(10))

End Sub

'Show the balances per product code
'Binding of the textboxex was disabled
Private Sub ShowProductBalance()
Dim rsBalance As New Recordset

    If Mode = AddNewEdit Then Exit Sub
          sSQL = "exec SP_ProductBalanceInquiry_ModuleBIR '" & rsHeader!cItemNo & "', '" & COID & "'"
          rsBalance.Open sSQL, cn, adOpenStatic, adLockOptimistic

    
          txtInitial = 0
          txtSales = 0
          txtPurchase = 0
          txtProdFG = 0
          txtProdRM = 0
          txtSampleDemo = 0
          txtIssues = 0
          txtBackOrder = 0
          txtAdjustment = 0
          txtReserved = 0
          txtBalance = 0
    
          If rsBalance.RecordCount <> 0 Then
                    txtInitial = rsBalance!nInitial
                    txtSales = rsBalance!nOutgoing - rsBalance!nRetSales
                    txtPurchase = rsBalance!nIncoming - rsBalance!nRetPur
                    txtProdFG = rsBalance!nProdIn
                    txtProdRM = rsBalance!nProdOut
                    txtSampleDemo = rsBalance!nSampleDemo
                    txtIssues = rsBalance!nIssues
                    txtBackOrder = rsBalance!nBack
                    txtAdjustment = rsBalance!nAdjustment
                    txtReserved = rsBalance!nReserved
                    txtBalance = rsBalance!nBalance
          End If
          
          Set rsBalance = Nothing
End Sub

'Show the balances per product code per warehouse
'Binding of the textboxex was disabled
Private Sub ShowProductBalance_WH()
Dim rsBalance As New Recordset
    
    lvwList.ListItems.Clear

'    If Mode = AddNewEdit Then Exit Sub
'        sSQL = "SELECT A.cCompanyID, A.cItemNo, A.cWH, ISNULL(B.nInitial, 0) AS nInitial, A.nIncoming, A.nOutgoing, " & _
'            "A.nRetSales, A.nRetPur, A.nIssues, A.nBack, A.nProdOut, " & _
'            "A.nProdIn, A.nReserved, A.nAdjustment, A.nSampleDemo, " & _
'            "(ISNULL(B.nInitial, 0) + A.nIncoming - A.nOutgoing + A.nRetSales - A.nRetPur - A.nIssues + " & _
'            "A.nBack - A.nProdOut + A.nProdIn + A.nAdjustment - A.nSampleDemo) AS nBalance " & _
'            "FROM V_ProductBalanceInquiry_WH A " & _
'            "FULL OUTER JOIN ITEM_W B ON A.cCompanyID = B.cCompanyID AND A.cItemNo = B.cItemNo AND A.cWH = B.cWH " & _
'            "INNER JOIN ITEM C ON A.cCompanyID = C.cCompanyID AND A.cItemNo = C.cItemNo " & _
'            "WHERE A.cItemNo = '" & rsHeader!cItemNo & "' AND A.cCompanyID = '" & COID & "'" & _
'            "AND C.cPartNo = '" & rsHeader!cPartNo & "'" & _
'            "GROUP BY A.cCompanyID, A.cItemNo, A.cWH, A.nIncoming, A.nOutgoing, A.nRetSales, A.nRetPur, A.nIssues, A.nBack, A.nProdOut, " & _
'            "A.nProdIn , A.nReserved, A.nAdjustment, A.nSampleDemo, B.nInitial"
'
'    rsBalance.Open sSQL, cn, adOpenForwardOnly, adLockReadOnly

    If Mode = AddNewEdit Then Exit Sub
          sSQL = "exec SP_ProductBalanceInquiry_ModuleWHBIR '" & rsHeader!cItemNo & "', '" & COID & "'"
          rsBalance.Open sSQL, cn, adOpenStatic, adLockOptimistic

    With rsBalance
        If .RecordCount > 0 Then
            Do Until rsBalance.EOF
                Set itmX = lvwList.ListItems.Add(, , Trim(!cWH))
                itmX.SubItems(1) = Format(!nInitial, "#,##0.#0")
                itmX.SubItems(2) = Format((!nIncoming - !nRetPur), "#,##0.#0")
                itmX.SubItems(3) = Format((!nOutgoing - !nRetSales), "#,##0.#0")
                itmX.SubItems(4) = Format(!nProdIn, "#,##0.#0")
                itmX.SubItems(5) = Format(!nProdOut, "#,##0.#0")
                itmX.SubItems(6) = Format(!nSampleDemo, "#,##0.#0")
                itmX.SubItems(7) = Format(!nIssues, "#,##0.#0")
                itmX.SubItems(8) = Format(!nBack, "#,##0.#0")
                itmX.SubItems(9) = Format(!nAdjustment, "#,##0.#0")
                itmX.SubItems(10) = Format(!nReserved, "#,##0.#0")
                itmX.SubItems(11) = Format(!nBalance, "#,##0.#0")
                rsBalance.MoveNext
            Loop
        Else
            Set itmX = lvwList.ListItems.Add(, , Trim(txtWH))
            itmX.SubItems(1) = Format(0, "#,##0.#0")
            itmX.SubItems(2) = Format(0, "#,##0.#0")
            itmX.SubItems(3) = Format(0, "#,##0.#0")
            itmX.SubItems(4) = Format(0, "#,##0.#0")
            itmX.SubItems(5) = Format(0, "#,##0.#0")
            itmX.SubItems(6) = Format(0, "#,##0.#0")
            itmX.SubItems(7) = Format(0, "#,##0.#0")
            itmX.SubItems(8) = Format(0, "#,##0.#0")
            itmX.SubItems(9) = Format(0, "#,##0.#0")
            itmX.SubItems(10) = Format(0, "#,##0.#0")
            itmX.SubItems(11) = Format(0, "#,##0.#0")
        End If
    End With
    Set rsBalance = Nothing
End Sub

Sub SearchObj(lEnable As Boolean)
    cmdPickPC.Enabled = lEnable
    cmdPickWH.Enabled = lEnable
    cboType.Enabled = lEnable
    cmdPickGroup(1).Enabled = lEnable
    cmdPickGroup(2).Enabled = lEnable
    cmdPickGroup(3).Enabled = lEnable
    cmdPickGroup(4).Enabled = lEnable
    cmdPickGroup(5).Enabled = lEnable
    cmdPickGroup(6).Enabled = lEnable
    cmdPickGroup(7).Enabled = lEnable
    cmdPickGroup(8).Enabled = lEnable
    cmdPickGroup(9).Enabled = lEnable
    cmdPickGroup(10).Enabled = lEnable
    cboUnit.Enabled = lEnable
    txtPartNo.Locked = False
End Sub

'Public Sub ShowForm(sTranNo As String)
'    If Mode = Find Then
'
'        OpenNewConnection connHeader
'        OpenNewConnection connWH
'        OpenNewConnection connC
'        OpenNewConnection connUnit
'
'        Set rsHeader = Nothing
'        Set rsWH = Nothing
'        Set rsC = Nothing
'        Set rsUnit = Nothing
'        Set rsHeader = New ADODB.Recordset
'        Set rsWH = New ADODB.Recordset
'        Set rsC = New ADODB.Recordset
'        Set rsUnit = New ADODB.Recordset
'
'        OpenRecordsetWithCN rsHeader, "*", "ITEM", connHeader, "WHERE cItemNo = '" & Trim(sTranNo) & "'"
'        OpenRecordsetWithCN rsWH, "*", "ITEM_W", connWH, "WHERE cItemNo = '" & Trim(sTranNo) & "'"
'        OpenRecordsetWithCN rsC, "*", "ITEM_C", connC, "WHERE cItemNo = '" & Trim(sTranNo) & "'"
'        OpenRecordsetWithCN rsUnit, "*", "ITEM_UNIT", connUnit, "WHERE cItemNo = '" & Trim(sTranNo) & "'"
'
'        Set FrmName = Me
'        FormLocking True
'
'        If rsHeader.RecordCount = 0 Then
'            FormWaitHide
'            MsgBox "No matching record/s found.", vbInformation, "ComUnion Search"
'            RSZero
'            FormSearch True
'            SearchObj True
'            Mode = Find
'            Exit Sub
'        End If
'            SetDataSource
'            SetDataField
'            txtItemNo.BackColor = &HE0FFFF
'            Mode = Normal
'            oBar.BitEnabled Me, ITGLedgerMain.tbrMain, lACNew, lACEdit, lACDelete, , , , , , , True, True, , True, True
'    End If
'End Sub


Public Function ValidateUnitBarcode() As Boolean
Dim rsValidate As New ADODB.Recordset

If rsUnit.EOF = False Then
    rsUnit.MoveFirst
    Do Until rsUnit.EOF
        If IDExisting(rsUnit, "cBarcode", "ITEM_UNIT", rsUnit!cBarcode) = True Then
            sSQL = "SELECT * FROM ITEM_UNIT WHERE cBarcode = '" & rsUnit!cBarcode & "'"
            Set rsValidate = New ADODB.Recordset
            rsValidate.Open sSQL, cn, adOpenStatic, adLockOptimistic
            If rsValidate.RecordCount > 1 Then
                MsgBox "Barcode " & rsUnit!cBarcode & " is already existing.", vbInformation + vbCritical, msgTtl
                dtgUnit.Col = 4
                Exit Function
            End If
        End If
        rsUnit.MoveNext
    Loop
    
'    rsUnit.MoveFirst
'    Do Until rsUnit.EOF
'        If IDExisting(rsUnit, "cType", "ITEM_UNIT", rsUnit!cType, "cType <> 'Consignee' and cItemNo = '" & Trim(rsUnit!cItemNo) & "'") = True Then
''            sSQL = "SELECT * FROM ITEM_UNIT WHERE cType = '" & rsUnit!cType & "' and cType <> 'Consignee' and cItemNo = '" & Trim(rsUnit!cItemNo) & "'"
''            Set rsValidate = New ADODB.Recordset
''            rsValidate.Open sSQL, cn, adOpenStatic, adLockOptimistic
''            If rsValidate.RecordCount > 1 Then
'                MsgBox "Type " & rsUnit!cType & " is already existing.", vbInformation + vbCritical, msgttl
'                dtgUnit.Col = 5
'                Exit Function
''            End If
'        End If
'        rsUnit.MoveNext
'    Loop
    
'    rsUnit.MoveFirst
'    Do Until rsUnit.EOF
'        If IsNull(rsUnit!cRefID) = False Then
'            If IDExisting(rsUnit, "cRefID", "ITEM_UNIT", rsUnit!cRefID, "cType = 'Consignee' and cItemNo = '" & Trim(rsUnit!cItemNo) & "'") = True Then
'                MsgBox "Reference is already existing.", vbInformation + vbCritical, msgttl
'                dtgUnit.Col = 6
'                Exit Function
'            End If
'        End If
'        rsUnit.MoveNext
'    Loop
'
    rsUnit.MoveFirst
    Do Until rsUnit.EOF
        If rsUnit!cRefID = "" And rsUnit!cType = "Consignee" Then
            MsgBox "Reference is mandatory.", vbInformation + vbCritical, msgTtl
            dtgUnit.Col = 7
            Exit Function
        End If
        rsUnit.MoveNext
    Loop
End If
End Function

Private Sub SetVisibleEnable()
    SSTab2.TabEnabled(9) = GetValueFrTable("lBit", "SYSTEM_OPTION", "cCode = 'ITM_VIS_CUSTITEMNO'")
    SSTab2.TabEnabled(8) = GetValueFrTable("lBit", "SYSTEM_OPTION", "cCode = 'ITM_VIS_SUPPLIER'")
    
    txtPartNo.Label = GetValueFrTable("cValue", "SYSTEM_OPTION", "cCode = 'ITM_MAN_BARCODE'")
    
    If GetValueFrTable("lBit", "SYSTEM_OPTION", "cCode = 'ITM_MAN_BARCODE'") = False Then
        dtgUnit.Columns(0).Visible = True
        dtgUnit.Columns(1).Visible = True
        dtgUnit.Columns(2).Visible = False
        dtgUnit.Columns(3).Visible = False
        dtgUnit.Columns(4).Visible = False
        dtgUnit.Columns(5).Visible = False
        dtgUnit.Columns(6).Visible = False
        dtgUnit.Columns(7).Visible = False
        dtgUnit.Columns(8).Visible = True
    Else
        dtgUnit.Columns(0).Visible = False
        dtgUnit.Columns(1).Visible = False
        dtgUnit.Columns(2).Visible = True
        dtgUnit.Columns(3).Visible = True
        dtgUnit.Columns(4).Visible = True
        dtgUnit.Columns(5).Visible = True
        dtgUnit.Columns(6).Visible = True
        dtgUnit.Columns(7).Visible = True
        dtgUnit.Columns(8).Visible = True
    End If
    
    
    If GetValueFrTable("lBit", "SYSTEM_OPTION", "cCode = 'ITM_VIS_MEMPRICE'") = True Then
        txtMP.Visible = False
        txtAveCost.Top = txtStdCost.Top
        txtStdCost.Top = txtMP.Top
    End If
End Sub

Private Sub GetCtrlNo(sCode As String)
Dim lCtrlNoOk As Boolean
Dim strNo As String

    strNo = rsAuto!cValue
    Do Until lCtrlNoOk
        If IDExisting(rsHeader, "cPartNo", "ITEM", strNo) Then
            strNo = Left(strNo, 5) + Format(CStr((CInt(Right(strNo, 5)) + 1)), "00000")
        Else
            lCtrlNoOk = True
        End If
    Loop
    

    txtPartNo = strNo
End Sub

Private Sub NewImage()
    If rsHeader.State = adStateOpen Then
        OpenNewConnection connImage
        OpenRecordsetWithCN rsImage, "*", "ITEM_IMAGE", connImage, "WHERE 1 = 0"
        SetDataSource
    End If
End Sub
